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INTRODUCTION - 
FOR PARENTS 
AND TEACHERS 


Computers are here and their uses in the home are many. We all have our favourite 
arcade-type games which we sit and play at for hours, and children and adults seem 
equally fascinated by them, but home computers can also be used as a powerful aid to 
learning. 


Because children learn so easily through ‘play’, the computer, when loaded with fun 
learning programs, helps children learn without them realising it. 


The fifty programs in this book (but including the choices within many programs, the 
total is in excess of 85!!), are designed to increase your computer fun and learning. 
Nearly all the programs have colourful graphics and music. Try adding numbers with 
“Jig the Juggler’, landing your spacecraft on the moon in “Aliens’’, or even try your 
hand at ‘““Donkey racing at the Strad Stadium’. 
The programs cover a very wide educational spectrum and include: 

geography 

history 

mathematics 

language development 

logic skills 

memory retention skills 


general knowledge 


science, including the collecting of Data 


keyboard training 

adventure simulation games 

graphs 

French. 
The many programs in this book are so diverse as to include games and léarning 
programs for all ages from 4 to 16, but all the family will benefit from the simple 
“Programming Hints”, by studying the listings for programming ideas, and from the 
“Typing Tips” which will help you avoid the common pitfalls when copying programs. 
Wherever your interests lie, there will be something here for you. 
All the programs in the book have been tested so be patient when entering your listings 
into the computer’s memory. Check each line of type as it is completed- this is a habit I 
have developed and it can certainly save time and frustration later. 
A ruler placed along a line helps read that line of print. I have typed out many programs 
from magazines and although occasionally there are listing errors, it has usually been 


an error on my part. 


Avoid the common errors— 


missing out lines, 

not completing lines, 

mis-typing variables such as B instead of B$, 

confusion between | (one) and | (small letter L), 

confusion between nought (0) and the letter O, 

spelling errors, 

always make sure that you have the correct spaces in a listing, the reason for 
their presence may not be obvious but to alter any will undoubtedley cause 
problems, 

beware of full stops, commas, semi-colons etc. 


So, check your typing to avoid time-consuming errors. 


Some of the programs include a “TYPING TIP” before the listing, which highlight 
possible areas of confusion. Always read this TIP before typing in the program. 


UPPER and Lower Case Letters : The listings in this book all appear in UPPER CASE 
letters, but when typed and entered onto the keyboard appear in lower case. When 
LISTed the program will appear in UPPER case. It is advisable that the program is 
entered using the lower case as you will be able to spot typing errors more easily, since 
the mistyped letter will appear in lower case when listed. Do not confuse your typing 
errors with the variables in the program as all these appear in lower case also. 


With each program or group of programs is a PROGRAMMING HINT- helpful 
advice which refers to the program it is with and which will help all budding 
programmers to make a start. ; 


These HINTS do not cover extensively all aspects of programming but simplify some 
of the more common commands and functions in BASIC. You will then be able to use 
them in your own programs or when adapting others. 


INTRODUCTION - 
FOR OLDER 
CHILDREN AND 
STUDENTS. 


Hello! Welcome to your Amstrad Learning Programs. I hope that you will enjoy using 
these programs and I know that they will help you to learn all sorts of things from 
English Grammar and the Periodic Table of Chemical Elements, to remembering 
where places are on a map. 


When you have typed in the program listings- perhaps with a little help, READ THE 
INSTRUCTIONS IN THE BOOK CAREFULLY before running the programs 
because there are not always instructions on the screen. You must obey the instructions 
at all times. You will need to use the ENTER key a lot. Find this key. It is on the right- 
hand side of the keyboard. Check the program instructions to see just when to use it. 
With all the program instructions, (except for Smugglers), you will see a screen picture 
showing part of the program. 


This will help you understand the program. 


GOOD LUCK! HAPPY LEARNING! 


INTRODUCTION - 
FOR YOUNG 
CHILDREN. 


I hope that you have some fun using your computer. At first, a grown-up will have to 
help you and tell you what to do, but soon you will be able to run the programs on your 
own. You will always be able to type in your own answers. 


HAVE FUN! 


WHICH 
PROGRAMS ARE 
BEST FOR YOUR 

CHILD? 


A suggested age range has been included with each program BUT it must be 
remembered that this is only a GUIDE - all children are unique, and as such, their 
learning abilities will differ considerably. 
There are 50 programs in this book BUT many of the programs include a choice of 
difficulty and will therefore cover a wide age range. Do choose the programs most 
suited for your child. 
As your child progresses through his schooling there will be programs in this book for 
him, whether he is just starting Nursery School or preparing for ‘O’ Levels. This is a 
book to grow with your child through their school life! 
KEYBOARD (age 5 - 12 years) 
ALPHABETICAL ORDER (age 4 - 7 years) 
MONEY (age 6 - 10 years) - three program listings 

JIG THE JUGGLER 

CHANGE 

POUNDS AND PENCE 
TEN GREEN BOTTLES (age 8 - 13 years) 
CRACK-THE-CODE (age 7 - 11 years) 
ALIENS (age 5 - 12 years) 


V-A-N (age 8 - 13 years) 


JAIL (age 6 - 12 years) 
FLASH (age 7 - 12 years) 
SNAP (age 6 - 12 years) 
MULTIPLICATION (age 6 - 14 years) 
MORE OR LESS (age 6 - 12 years) 
INVASION OF THE OCTOPOIDS (age 8 - 12 years) | 
COUNT (age 3 - 6 years) 
DATES (age 9 - 15 years) 
VISUAL ADDITION AND SUBTRACTION (age 3 - 7 years) - two 
program listings 
VIS-SUB 
VIS-ADD 
DONKEY RACING (age 9 - 13 years) 
SMUGGLERS (age 9 - 14 years) 
MOON-BUGGY (age 5 - 13 years) 
SEARCH (age 6 - 10 years) 
MATCH (age 3 - 7 years) 
PARLEZ-VOUS-FRANCAIS (age 10 - 15 years) - three program 
listings 
BONJOUR 
LA MAISON 
FRENCH 
DIVISION (age 7 - 14 years) 
PHRASES (age 9 - 15 years) 


SAM CAT (age 5 - 9 years) 


MISS HOMONYM (age 9 - 14 years) 
LAUNCH-A-ROCKET (age 6 - 12 years) 
PERIODIC TABLE (age 13 - 16 years) 
CROCGRAMS (age 7 - 15 years) - three program listings 
CROCGRAMSONE (age 7 - 11 years) 
CROCGRAMSTWO (age 9 - 13 years) 
CROCGRAMSTHREE (age 10 - 15 years) 
STAIRWAY TO SUCCESS (age 8 to 14 years) 
SEA-BATTLE (age 8 - 14 years) 
GEOGRAPHY (age 9 - 16 years) - five program listings 
BRITAIN-PHYSICAL 
BRITAIN-TOWNS 
CAPITALS 
E-E-C. QUIZ 
WORLD FACTS 
PYTHAGORAS (age 12 - 16 years) 
NAME THAT BIRD (age 9 - 16 years) - two program listings 
GARDEN-BIRDS 
BIRDFACTS 
GRAPHS (age 9 - 16 years) - three program listings 
BIRTHGRAPHS 
RAINFALL 
TEMPERATURE 


WORD-FIND (age 9 - 13 years) 


KEYBOARD 


PARENTS- here is a program to practice keyboard familiarity. Two minutes are 
allowed to see how many letters can be copied correctly from the screen. 


CHILDREN- how fast can you type? This program puts a letter on the screen and you 
have to find that letter on the keyboard. Hit the key when you find the correct one. The 
number of correct letters that you have hit and the time you have taken is shown like 
this:- 





10 letters 


Time 52 secs 








Try to beat your friend’s total! 
PROGRAMMING HINTS - PRINT and LINE NUMBERS 
The PRINT statement is used to program text into the computer. 
Try this simple program:- 

10 PRINT "Hello" 

2@ PRINT "I'm your Amstrad Computer" 

RUN 


This is a simple program, showing that when words are required to be printed on the 


screen, they must be put in the PRINT command using inverted commas. These 
commands must also be given a line number. These line numbers usually go up in tens 
so that it is easy to insert another line. For instance, in the program above, a time loop 
could be inserted at line 15 without having to rewrite the program. 


Try it! Type:- 
TS FOR = =" 10s OD NEXT c 


The program automatically sorts the lines into order. 


1 REM keyboard 

10 MODE Oo 

50 WINDOW #1,1,20,1,25 

60 WINDOW #2,6,15,7,14 

62 PEN DT SINK 4170-2. PENe 2) IN 

63 PEN #1,2 : LOCATE #1,1,5 : PRINT #1,"KEYBOARD F 

AMILIARITY" : LOCATE #1,2,9 : FRINT #1,"How many 1 

etters" : PRINT -#1.: LOCATE #1,2,11 =_PRENT ¢), ca 

n you get correct" :' PRINT #1 : LOCATE #1,2,135 : PF 

RINT #1,"in two minutes?" 

64-FOR CE) =]=Fi- TOs oo00) = NEXT t 

6a CLS Hi os Ces. Fe 

7O (PAPERS HI tos SPArER-#2,.2 

75 datum = INT(TIME/300) : n = © 

80 a = INT (RND¥25)+97 

PO PENTA. s SNE Seo: § OCGA este ecg ret oR EIN eee oer ek 

RINT #2,CHR# (a) 

100 at = INKEY# : IF a#¥ = “" THEN 100 

110 IF at = CHR#¥(a) THEN n =n + i 

115 ticker = INT ¢C(TIME/300) -—datum) 

120 PEN 4°39 INK 4,o ios FEN #1,4 =: LOCATESti gay ons 

PRINT #1,n;" letters" 

130 LOCATE 4lys,20) (2 PENH, 46 : SRR INE a men Sent 
icker;"secs" 

135 LP trekkers 120 THENRZ0o 

140 GOTO 80 

200 GES Fir’: CES = #2" PAPER fa 71s) PAeReRass ese 

N #1,3 : LOCATE #1,4,23 : FRINT #1,n;" letters" 

oC DS AT aR peg tees ROR MT teeny eet die 

220 LOCATE #2,2,5 : PRINT #2,"minutes" 

220 LOCATE #1,1,18 : PRINT #1,"If you want another 
go, perhaps to try and beat your total,hit any k 

ey i) 

240 be = INKFEYS : IF bt = "" THEN 240 

250 GOTO 65 
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ALPHABETICAL 
ORDER 


PARENTS- this is a program to check a child’s ability to put arandom set of five letters 
into alphabetical order and, where necessary, to give practice in this skill. 


CHILDREN- how good are ycu at putting a group of letters into alphabetical order? 
When this program begins, you will be asked to choose capital letters or small letters to 
work with. The alphabet will then appear at the top of your screen to help you as you put 
your letters in the right order. 


ABCDEFGHIJKLMNOPQRST 
UVWXYZ 


GNAEQ 


Put these in order 
with a comma between each one 


? a 





As you type in the letters, you must put a comma after each one except the last letter 
which must have the aa key pressed after it. 


PROGRAMMING HINT - REM 
This command is used to place REMinders or REMarks in programs without affecting 


the program operation. The REM is there for the benefit of the programmer and is used 
to REMind him of what follows. Look for these REMarks throughout the listings. 


ll 


1 REM alphabetical 

1Q DEM wees) 

1248S 

14 WINDOW #1,1,40,1,25 : WINDOW #2,14,28,8,19 : WI 
NDOW #35,10,32,18,20 ; 

16 PENDO 2 INK 0, 2G): PEN a = TNE gIao se FEN Ses iN 
eee HAPS Rt He uN i ecili te 

20 GOSUB 350 

=O FOR a = 0 TO 25 : READ w¥C(a) : NEXT a 

40 b = INTCRND*#25) +: c = INTC(RND*25) : d = INT (RND 
#25) °: @ = INT C(RND*#25) =» £ = INT (RND#235 


SO IF b = c OR b = d OR b = © OR b = fF THEN 40 

So. IP °e =<d OR-e ="se OR eS f+ THEN 40 / 

60 IF d = e OR d = f THEN 40 

Go lee = fae Mano 

70 a#t(1) = wt (b) : a#(2) = wk(c) +: aF(Z) = wid) : 


at(4) = wt(e) : a#£(S) = wt(f) 

60 ES #1 = FPAFER #e.3° 5 CUS 4S = SPAPER 4,2") Fes 
#3 

Se RCT INIT, SAE Ups rem ume Eh a ea Skee eet i Foi Cs) a hey 
hee 

SS 1S UCT Ertl cele sety ei Tae Lyi least: Wy gece) okay) A Gn aca 

SS FEN #2, de: LOCATE ee soe ose OR Ce eleteamcs 

STR rlN eteeee rele Gs sae eG 

oS FEN #2,2 : LOCATE. #1,12,1/4 ¥ PRINT #2, "Rut thes 
e in, order) s FRING Hl. * with a comma between 

each one" 

190 FEN #23,1 : LOCATE #2,2,2 : INPUT #2,ab#,ac#,ad 
#,aet,aft 

120 _LGECATECHL ts, 22 = FRRENI Gorrecteorded = 1c 

OCATE #1,17,24 : GOSUB 175 

120 IF a#(1) = ab# AND at(2) = act AND a#t(3) = adt# 
AND a#¥(4) = aet AND a¥(S) = af THEN 150 

1460 PEN #1 ,2 3 -LOGATE-#1,.1,25. 3 FOR bd = 118 10 : 
PRINTS ce NE amie NIT Cea ch sg Pee Rey ets ope Ny) css OO 
NES Ee 

145 GOTO 12 

LSO PENH cris) OGANE Hi, tcc s) Re cles letoeccm = 

BRD ta GREAT Mss SOUND 15 S45 20,7 = BORDER ENik 
(RND*¥27) : FOR tt = 1 TO 200 : NEXT tt : NEXT bad : 
COIOe te 
As Ee (8 
TSO POR 2eo=—1o 1G ket 

190 s# = a¥(z) : r£# = aF(z+1) 

200 IF s# <= r# THEN GOTO 250 

210 ef = af(z) 

220 aFlz) = at(zt+1) 

250 af(z+1) = ef 

240 x = x + 1 


— 
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250 NEXT =z 

ZoOmenm eo - OUNHEND kak ely se GOT O2 17S 

2o0meOneie— 19 1 Om 

290 PRINT #1," “satis 

200 NEXT i 

305 RETURN 

su0 BORDER 4 : FAFER #1,0 : CLS #1 : PEN #1, 

Soo LOCATESHL yo .S.:eFRENT 41,"%Acl -FeH=A Bo Est I-C 
AL OPE DSES ke” 

360 PEN #1,2 : LOCATE #1,1,10 : PRINT #1,"You must 
Place the letters in order." : PRINT #1 : FRINT # 
1,"Do you want 1) CAFITAL LETTERS" 

365 LOCATE #1,9,14 : PRINT #1," or 2) small letter 

s" : LOCATE #1,1,16 : PRINT #1,"Frees 1 or 3" 

370 PRINT #1 =: INFUT #1,an# 

375 IF ant = "1" THEN RESTORE 420 

380 IF an# = "2" THEN RESTORE 400 

385 RETURN 

ACG) CONDE) VIVE XU litmy Coumthg C raicten Jy Fl ig Lid ett gh eel (Tl oi) greg Dg Tig foe Shi yi yt 
gVg Wg hg Yq 

A AMET EN Al Mg igs gy Wy Sg tg Dig Nag eg ly Fe gh rand ad gt tate git a eghectig ny 
Sivas lg hg Y gee 
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MONEY 


JIG THE JUGGLER 
CHANGE POUNDS AND 
PENCE | 


JIG THE JUGGLER 


PARENTS:- it is always useful for young children to be able to add small amounts of 
money, especially when they wish to spend their pocket money on several small items!! 
This program is designed to give practice in adding three random amounts of money- 
though all the amounts correspond to our coins (1p, 2p, 5p, 10p, 20p, 5Op and 100p). It 
would probably be helpful if the children had the real coins (plastic ones are a useful 
substitute, though not as good as the real thing) that they could handle when they first 
deal with sums of money. 


CHILDREN- meet Jig the Juggler and watch the coins that he juggles with very 
carefully because he will ask you their value. 
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Add up the three coins and type your answer into the computer. Remember to press the 
faN@seai key. Ifyou are right, Jig’s eyes will flash but, if you are wrong, Jig will tell you 
the right answer. 


You can have as many goes as you like. 


1 REM jia 

20 DIM b#(7) 

2o mf = CHR#(143 ) +CHR# (143) +CHRE (145) 

2/7 nt = CHRE (22) +CHR# (22) +CHRE (32) +CHRE (2) 

ee ie ie Ones INK: CONF Wae cu weap: Goel (Nieooel at. Seek oY us Ly Mk 
pe ess Hee eetsie NE oie eG 

40 FOR a = 1 TQ 7 : READ b#la) : NEST a 

100 « = INT (CRND#7)+1 

Aiea SiG) INO Sees) SUE Sia), ech edd ache) gel eh etry cia eI) oD, wl II 

192 y = INT CRND#7)+1 

102 ON y GOSUB 560,561,562,562,564,565,546 

194 z = INT CRND#7) +1 

se Maem SUSAN er lew eh at sche ag Matec e 

HOES eSOSURrSs0 

120 GOSUB 440 

PEOVFENS AieLOCATE els Ee ARINT oAWhiatt ast the'’ FRR 

INT "value" : PRINT 

140 INPUT ans : LOCATE 6,22 : FRINT "p" 

159 IF ans = r+st+y THEN 200 

He cys rey COGENT ee te pCa eee rays Dg) SoM tO) picky ler IRS tee iene Qin me ee Contneaans 

NESS) Staph Gn, Ia) es PRINT" #% N GO ¥*#" : LOCATE 

24,21 : PRINT = OH ies Peta a rerey Wohi shlORF ES ie 
SOOO FA NEXT: th is. SOTO erao 

Ceo SOSube so LOCATE EaO aS eR EM we Oia Gs 

OSUBSS20 2 COTO 190 

SMO DATA Mh gem pes Opt eee OD Wl TOES 

oO REN ei te Orie TO 7 ase POR Td? = 2 1G? Ses eocA 

Vee UG6te aw ed eer CHR Creo es E Kile idl ee NE ec 

Zoo FOR) ice= 0 2G) 4.8 PENW: LOCATE t4re .2Se IPREN 

jN@aGHR# (142) = HOECATE Site ,25 2° PRINT *CHRS (142) «2 IN 

EX, ‘é 

260 LOCATE 17,24 : PRINT CHR#(143)CHR#(143)  : LOCA 

TE 21,24 : PRINT CHR#(142)CHRE(142) 

365 FEN 1 : LOCATE 19,12 : PRINT CHR# (138) CHR# (133 

) : LOCATE 19,13 : FRINT CHR#(138) CHR (1325) 

ecde) (a) eG alae oh eine le Sewer i abe eee tase 

T CHReE(143) +: LOCATE 27,12+c : FRINT CHRE(143) 3 N 

Eygiere 

375 PEN 1 : LOCATE 12,14 : FRINT CHR# (213) CHR# (215 

) : LOCATE 12,15 : PRINT CHR#(143)CHR#(215) : LOCA 
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TE 23,26 +2 PRINT CHRE (212) CHR (1435) CHRE (215), 2 LOE 

ATE 14,17 : PRINT CHR#(213) CHR#(142) : LOCATE 15,1 
Soo RD Nee ine “entre 

380 LOCATE 26,14 : PRINT CHR#(214) CHR#(212) =: LOCA 

TE 25,15 : PRINT CHR#(214)CHR#(142) : LOCATE 24,16 
: FRINT CHR (214) CHR# (1435) CHR#(212) : LOCATE 24,1 

7 : PRINT CHR#(143)CHR#(212) : LOCATE 24,18 : FRIN 
TT GCHr (ie) 

2970 POR le = 10 SO>s. 2 BOR d =.0) Toe sr SOP Aiea tS e., 

Std 52 (ERIN CARS CLAS) cs NE kd ch ce INES olen 

400° ROR G@ = 0 10 S28 FOR d = oO Tol ys Beeane vere. 

é+d aE ENGS =| RR US CHRE G49) ee SNE Xie cle trae x lec 

405 LOCATE {16,8 =: PRINT, GHRS C2Ge  EnRS (205)> 2 LOcat 

E 22,0 8 PRINT Cok C2oe vbr tawaca) 

410 PEN 1 : LOCATE 17,9 : FRINT CHR# (2346) CHR# (143) 

CHR# (142) CHR# (141) CHRE (1423) CHRE (247) 

415 LOCATE 18,10 : PRINT CHR#(135) CHR# (141) CHR#(i4 

2) CHR CIES} 

420 LOCATE 18,11 : FRINT CHR#(141)CHR# (140) CHR#(14 

O) CHRE (142) 

425 FEN S : LOCATE 19,14 : PRINT CHRE(143)5s LOCAT 

E 20,18 : PRINT CHR#(142) 2: LOCATE 19.20 22 FRINT *& 

HR#(142) +: LOCATE 20,22 : PRINT CHR#(145) 

420 RETURN 

440 FOR e = 170 2 

450 PENS PF aWOGATELS95 TO PRENT Sb eee BOE ATE 22 
sit ee RING mee? "GOSUB SOs SEO AiE So, elor ee Renin 

n=) BOCATE £9 720 SPREM i ae GOSURR Oo tees Ane 
TOR SE ROr Ni Gee SEE ATE Sep aie ea eerie ees) 

B S00 

4355 -OCATERSS lO es) FRENM nS = Louk are 29. 00 eR Nt 
DS (yal ts ee DEAT Eee? oil ae eUNe mses (OO Seine SOG 

460M E0CGATE 295 fO> 2 RINT nso ZOEATSess i sean 
nos GLOCATE <1 97, is RR INT ina, dO GAs oe eR 
n= : GOSUB S500 

465 LOCATE’ 8,10 is “FRINT n= 2 cL OGATE S hO=:, PRINT i 

2G.) we EGEATE Goll sSERINT mos SGOSUBS SOO Fhe A re 
1951 FSP RON nese BEATE Sw aR ON besGy: resale 

ATES 2 (PREM Aie ?  1GOSUR sSO0 SEE AT Ere Shoes ae 

RINT we t OCATEVE5 740 = PRIM bs) 

°468 LOCATE 329,11 : FPRINT m= 

469 GOSUB 500 : IF e = 2 THEN 480 

470 LOCATE-.8,11:>:: PRINT hs lOGATE 8,2 Oth ERIN 

$s LOCATE ATS ko SPRINT ands see O GATE) Tice REN ee 

Sos LOCATE 29,20 (SP RUM ins LUEATE, SOs BRN, 
ns 

475 NEXT e 

480 RETURN 

2900 SOUND £6;30 72077 SUF OR T= 1 SiO SSOGSInNExGr 2 + 

RETURN 
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S20 PEN 1 : FOR p = 1 T0 5 : LOCATE 19,9 : PRINT C 
HRS (145) CHR#(143) : GOSUB SOO : LOCATE 19,9 : FRIN 
T CHR# (142) CHR#(141) : GOSUB S00 : NEXT p : RETURN 


350 r = 1 : RETURN 
solr = 2 : RETURN 
Doe fr = 5:: RETURN 
soe ft = 10 : RETURN 
oo4 r = 20 : RETURN 
soo fr = 50 : RETURN 
356 r = 100 : RETURN 
960 s = 1: RETURN 
361 5 = 2 : RETURN 
262 Ss = 5 : RETURN 
365 5 = 10 : RETURN 
964 s = 30 : RETURN 
969 s = 50 : RETURN 
366 s = 100 : RETURN 
Sion Va Sol. See TURN 
a7) Ve= See RETURN 
a72 v-= 5 =: RETURN 
3753 v = 10 : RETURN 
974 v = 20 : RETURN 
g7o V = 50 : RETURN 
575 v = 100 : RETURN 


CHANGE 


PARENTS- as children become more proficent at adding small amounts of money 
when they are out shopping, it then becomes advantageous if they can work out the 
change that they must expect from, perhaps, a pound note. 


This is a simple program designed to give practice in subtracting random amounts of 
money from a pound. As with Jig the Juggler, access to a supply of coins (real or plastic) 
would be useful, though not essential. 


CHILDREN- when you are out shopping and you buy something with your pocket 
money, it is a good thing if you know how much change you need to be given. This 
program will help you to work out the change you would need from a £1 after spending 
different amounts of money. There is no need to press the key this time. 
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Your screen will look like this:- 


Money spent 


If your answer is one number you must 
put a nought first 





1 REM change 

20) PRINT CHRS (22) +CHRS (1) 

500) EMO metic meli ie Cig fl). ce Sete is So INES ceca me ste Nan cena SeeaTaTNEs 
aac be esa eI meee GIN Es ecg nes 

100 CLS : GOSUB 300 

LOSE NG: eG Cie trte, 2a tee ReMi Co feet ain cules ied 
ane number you must put a nought first." 

DiS re LOCATE ed: a SRO | Smomey oqiacemimes lat 
CATE 15,8 : FRINT “money spent" : LOCATE 37,12 : F 
RINT "change" 

120 ~« = INT CRND*9) +102 y = INT CRND#10) 

LC OLSRIEN, (2. te OC Ril se elites: oO osc oe Let ee at ics 
sa Shae oe, 

140 at = INFEY® : IF a® = "" THEN 140 

tts EOEATE of 6 2 GERONT at is CGeSUe 230 

A tS ee IN a ec ees a ee ee TTR eat cle 

1S@ LOCATE 22,16 : PRINT bt : GOSUB 280 


160 d = ASCla#t) : d = d-49g 
162 e@ = ASC(b#) : © = e438 
TSB ho Ce POT sy Cased ee 
recy Soe SO) ee a ral (oh peta) 


2 
IO Lee tO. =" hh THEN Zoe 
180 LOCATE 12,3 : PEN 3 : FRINT "***# N O *#x#" 
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185 FRINT "Answer is "“si:"p" 

1SSeRORe it 12 1G 2S00r 2 NEXT tes. GOirG ae 

260 FOR q See OS ener esc emi ime G ini Miaece sme SCID tee 

7 ee ese POR) eh se OOer a NEXT termsGEATE Cqt4) + 
ist eM stint ies Pa LN) SOD atone xh 

205 GOTO 100 

Bec eles Cle wR vac Maher ta—\ le Re OU s NEA: ts 

RETURN 

ZOO Seok a = 2422070 S06 (STEER MSS Se PEOTa,80,2. 5, DRA 

Weageto,c sn INEXtia = FOR a = S22 70 286 STEP Sa: 

FLOT a,80,2 : DRAW a,240,2 : NEXT a 

SOGUPEON 24278032 <<. DRAW S54 5980.2 3 PLOT 242,195 : 
DRAW 286,195 : PLOT 242,240 : DRAW 2846,240 

SLO FOR a = 42270 454 STEF S2 : PLOT ay80,2 2 DRA 
Wsa,t76,2 siINEXTHa “FOR a = 470 TO.Se4 STEP 32 : 
PLOT a,80,2 =, DRAWCa,176,2 3 NEXT-a 

SLoereot, Se6sl76,< 2 DRAW coe. IG, = 

220 PLOT 386,128,2 : DRAW 3S24,128,2 

Som ENe do = seOc Aleta esi kM tee OG Ame pt ot 
Sec ING tO" Ss OEATE 26516 5° PRINT “HY se LOGATE 
awh mee Fre Net ay 

Soe OOSUR 2oe 

Deter or cas oO: TO! Siuset BOR) -be=_ 1G? See FPeOh, sh2eta2 
to+h,1 2 PLOT 460+a,1S2+bed al NEXT ib i NE a 

340 FLOT 64,80,3 : DRAW 64,128,535 : DRAW 192,138 : 
DRAW 192,80 : DRAW 64,80 

345 FEN 2 : LOCATE 46,19 = FRINT “#1.o0" 

347 GOSUB 280 

350 RETURN 


Woot 


POUNDS AND PENCE 


PARENTS- some children do not realise that there are two ways of writing the same 
amount of money. For instance, 75p can be written as £0.75 . This program gives 
practice in converting sums of money written with the ‘p’ sign to the equivalent amount 


using the ‘£’ sign with the decimal point, and vice versa. 


CHILDREN- there are two ways of writing the same amount of money. One way is to 
use the letter ‘p’ when we are thinking about a number of pence. The other way is to use 
a‘£’ sign and a decimal point- the number(s) between the £ and the decimal point shows 
you how many whole pounds you have; the decimal point separates the pounds from the 
remaining pence. You MUST always have two numbers after the decimal point- if you 
have only one number, you must put a nought(zero) in front of it, e.g. 7p becomes £0.07 
Either way of writing a sum of money is correct and you need to be able to use both 


ways. 
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Write this in pence only 
£4.76 


? a 





PROGRAMMING HINT - LIST 


If you want to see your program LISTing at any time, type LIST and press TSNMM Sis 
Your program will then be LISTed on the screen. 


LIST -200 will list your program to line 200. 
LIST 200- will list your program from line 200 . 


LIST 50-100 will list your program from line 50 to line 100. 


1 REM pounds/pence 

20 PEMOO +: INKoO.0 5 PENT s INE 1,26 

20 m = INT (RND#¥23) +1 

docs “SF APER © 

35 ON m GOTO 190,200 

1600 «x = INT CRND#900) +1 

110 LOCATE 1,5 : PRINT “Write this in pence enly" 


120 PRINT PRINT "#"%/100 

AO RAR INPUT Sa °F) LOCATE® 639 FP °PRINT ae 
140 IF z = ~« THEN 166 

150 PRINT = PRINT “No“answer is ign 

33 FOR t = 1 TO 3000 : NEXT t : GOTO So 

160 PRINT : FRINT : PRINT “GREAT” +: GOSUB Zoe 
i179 60TO S06 
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ZOO x 


INT (RND#899) +100 


210 LOCATE 1,5 : PRINT "Write this with a decimal 
fayisyan Mee 

ome see it ie cose et cls cote eel 

Sour RUN FRoMbeet = OC AKE: a. O° UNE be sy 

220 IF y = x/100 THEN 259 

240 PRINT : FRINT “No, answer is #"x/100 

efaeeok  & — Gd) TOaseOnS: NEXT t= Chto" so 

ASO Elis iter Misi iN GRE Alpe: GOSIE eam os (60) 
eile =) 

200 FOR h = 1 70 10 : BORDER INT(RND*¥27) : SOUND 1 
Mica? os BOR t= 21 Te seeo, | NEKiy bs Nex A 


305 RETURN 


Ze 


TEN GREEN 
BOTTLES 


PARENTS- this program, whilst playing the tune ““Ten Green Bottles’, introduces 
children to algebraic substitution through seven types of equations:- 


16-Y=7 
10+ Y=13 
X41 =10 
X-9=10 

10X - 2 = 98 
6X+2=8 
Soi 

7 


As they progress through this unusual version of the traditional song, algebra will 
become fun for them to learn. 


CHILDREN- have you ever knocked bottles off a wall by answering questions in 
algebra? No! Well now is your chance! Look carefully at each of the number sentences 
and you will find that there is a letter instead of a number. You need to discover the 
number to put in place of the letter to make this sentence true. When you type in your 
answer, remember to press ; 


Ze 


For example:- 


X+1 =18 
WHAT IS THE VALUE 
OFX 7? @ 


Nene 





X+41= 18 
17+ 1= 18 
So the value of X is 17 


Type 17 TaNggaies 


If you are right, your bottle will crash to the floor. If you are wrong, have a go at another 
question. As you play “Ten Green Bottles’’ algebra is fun to learn! 


TYPING TIP 

Between lines 150 and 460, you will notice extra spaces within the PRINT statement. 
You must be careful to type these out exactly as you see them, otherwise the statements 
which appear on the screen may look untidy. 


PROGRAMMING HINT - PRINT ; 


In all the programs, you will notice the semi-colon ; appear with the PRINT statement. 
This means that the characters will follow on. 


Try this program:- 


10 PRINT "Hello" 
20 GOTO 10 


Did you get a column of the word "Hello"? Now type this into your computer 
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10 PRINT "Hello"; 
20 GOTO 10 


What happened? Can you see the difference? Look for the semi-colon in the listings. 
REM ten-green-bottles 


j 
S brick = CHR (223) +CHR# (222) +CHRS (25-5) +CHRS (S23) 
& bf = CHRECISS)+CHRE (142) = ctu= CARS (32) +CHRa tees 





DOP SEINE 1 4 See DN a ek NI its eee me NS ea (aT ey 

20 WINDOW #1,1,40,1,10 

25 WINDOW #2,1,40,11,21 

20 WINDOW #2,1,40,223,25 

25 FAPER #1,0 : FAFER #2,0 : FAFER #2,0 

40° CLS #1 -: “Gb So reac S 

Tee Sue 7OO ss) SOSUBT 7au 

ae LOCATE #1,11,2 2 FEN Fl) = PRIMED eM Gees 

Mo BGieeS" = LOCATE Fi, 60) a: TPR UNG sth oe De Gee esa 

TRESS. GRE WHE “WARE 9s SMOG Amie FFL et s7iebateel Silat ens 

BY EEN ING THE MISSING SNUMBER® 

To SoSuUB Sea! 2 GES srt 

gd Colne = 2 

69 CLS #1 

7O TF count = 1G THEN Sac 

190 fh = INTC(RND*®7)+1 

POS CON fh SOD Si SSO el. ci cl he eto O) 

130 % = INT CRNDS7)4+1 9 = = INT CRNDeIGI TO 

Pes ce OBESE 5) Weick, 5) OR nth abhi eS re AU M mte eer Sem Ty 
= cee SUSUR SSO: LOCATE i Dane aes 

Om ve 

LOO GE ie os os MEU dey 

AU Csi rey eam neers eS tcta/ ss UIA ess i tkey C0) cos et ate Aad 

167 GOSUB 640 : GOSUB 4600 

7a Sapo ee 

20008 = INT CRNDS1O)+1 2 = UN CRN Deets ls seni 

ELON GR Se ry fal Eee (ee ees 

eee ene amare elites iN ete. (0) 

ZO VEGEAT Eth gb a ccien) toc ie Los cea fe te ei leerest ier oe Oe) en 

EU HL iS, 2.9 PRINS Hla = ae a eee Shc te 

SIO MOC AES iy 1G. 6) sa. Beenie ate le ) meexe 

205 (ROCAT Esl pk? 7 8ir se LIN Ei tele. 

S200 TR HR ok THENSGOSUBESSa 

222 GOSUB 640 : GOSUB 400 

elTOM EO here o 

200 y = INTCRND#10)41 : =z = INT (CRND*10)+10 

2a0 LOCATE Hi, iS 22 PENGHI Ad ce chon nin Phd a tathus | Tice nner 


yi" = “sz : GOSUB S50 : LOCATE 41,16,6 : PRINT # 
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el Mae Xe 

260 LOCATE #1,19,8 : INPUT #1,x 

265 IF ee > =z =—y THEN’ S80 

=79 GOSUB 640 : GOASUB 600 

afar GOTO GO 

300 w = INT (CRND#¥10)+4+1 

TCRND#10)+1 2: y = wx 

200 0le Y/xes THEN Som 

2 EOCAIE #2,15,1 3 PEN #1,1 2 PRINTO#2E"Y =—?* 3 

25°) = Ss ae?) LOCATE: #151552 ° 2. PRINT!) #15 CHRS (154) 
| EOCATE CHP PISS 2S PRI NEHA X 

Set SUSUR Sot5: LOCATE FI, 16,4655 °FRINT #12 ,"%O0-Fe Vu 

s20 LOCATE #1,19,8 : INPUT #1, 

Sao Let wes LHEN sso 

220 GOSUB 640 ; GOSUB 600 : GOTO 60 

2590 % = INTC(RND#10)4+10 2 2 = INT(RND#10)+1 

Se omeOCans: tis tees SERUMT Hie ee mS Vee ei ee 

SHSUB ass  EACATE Fil plonoe: ERIN Hi, Orr) yy" 

S60 LOGATE #1,194,8 + INFUT #1.¥ 

Eo ate hie Sante met ay eet ce Mame ey tit 

2/0 GOSUR 640 : GOSUB 600 : GOTO 60 

400 y = INTCRND#10)4+1 2: = = INT CRND*¥10)+1 

ear te acrid SEEN Tame ee LS, ices ce Soe TSI ear Lg oe eta aa siren ie Re 
PeoGoulbaoaOn SRBC ANE 44 1s, On nel Lie rd eS | ree 

408 NDGATE #1, 1958732 INPUT #1i4x 

Sa ery aire ata io 

450 BOSUB 640 : GOSUB 4690 +: GOTO 40 

430 y = INTOCRND*9)+1 3s z = INTORND#10)+1 2: x = INT 
C(ANDETOL s ces) (x%y) +2 

ASeeoGene Higa, e 2 PRN Sees LOCATE sel PS es 
RUC eetkligtak see RRC SP ee Ore ef 

PoumbOSMRr eo. es ROG ARE FL SiGe eee PR GN iets oe Oe ea 


w 
ry 


d 


INT (RND#10)4+i 5 = = IN 
CV 


Wo 


465 LOCATE #1,19,8 : INFUT #1,f 

ATO Teh > oo THEN S8o 

4735 GOSUB 640 : GOSUB 660 : GOTO 60 

S50 LOCATE #1,6,4 : PEN #1,2 : PRINT #1,"W HAT 
San otiebiterr ve ute ee re ree 

Ser wOCMheett lea, Loo PEN 4b 2 BRUNT aN Cie 
Oe ee SOOO = Nek Ti ae Geo eo 

600 PEN #352 2 LOCATE #2,16,2 2 PRINT #8, CHR (47) € 
HR (32) CHR (82) CHR (22) CHR (55) CHR (22) CHR (82) CHR 
#(22) CHR (72) 

elo FOR Www = 7e1G eSTEr =i SOUND SA erelO Wwe. 
Pcie NE Xele we ewWe en URGE Hee = 10-400 s SINE XT te 

eno EOCATE= Fao, 2) PRENT to CHR Coe cae cscs 
> FOR Saale Ti) SOC INE Xece a TRETURN 

640 count = count +1 
650 IF count = 1 THEN e 


= o 
oo. TF count" =-2" THEN ee 


4 
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654 IF count = THEN e = 8 

656 IF count = 4 THEN e = 12 
658 IF count = 5 THEN @ = 16 
660 IF count = 6 THEN e = 20 
662 IF count = 7 THEN e@ = 24 
664 IF count = 8 THEN -e = 28 
666 IF count = 9 THEN e@ = 32 


668 IF count = 10 THEN e = 36 

669 FURS te=9 1 Ome 

670 LOCATE #2,2+e,1 : PRINT #2,CHR#(138)CHR# (122) 

3 LOCATE #2,2+e.2 PRINT #2,CHR# (142) CHR# (141) 
475 FOR d = © TO 4 +: LOCATE #2,2+e,2+d : PRINT #2, 
booed 

680 SOUND 1,67,50,6 : FOR t = 1 TO 150 : NEXT t 
685 LOCATE #2,2+e, 1° :°PRINT #2,¢% #°LOGATE #2,276, 
2 : PRINT #2,c# : FOR d = © TO 4 : LOCATE #2,2+te,3 
+d: PRINT #2,c# : NEXT d 

687 FOR t = 1°7T0°S00 F NEXT te: MEAT f) 2 RETOUR 
7oO LOCATE #2,1,8 © FOR ©. =*0'TO°01 +: FOR b= 0 TO 
4; PEN #2,2 : PRINT #2,brick#; + PEN #2,3 : PRINT 
#2, Diedeees = NEXT 

710 PEN #2,3 : PRINT #2,CHR#(223)CHRE(252)3 2 FOR 
b= 0 T0 3: PEN #2,2 : PRINT #2,brick#; : FEN #2, 
S : PRINT #2; briekbss> Ss > NEXT b 

720 PEN 82,2 2: PRINT #2, brick#; <) PENS He, 2 PRENT 
#2, CHRS (253) CHRS (253) § 

Tao NER es RETURN 

7a0 PEN #2,1° s FOR a-=70 TO: 36 STEP 4 © LGEATE #2. 
S@ta,1 3 PRINT #2,CHR# C128) CHR#(132) : LOCATE #2,2+ 
aye) PRR LNT Pe Ce ee 

760 FOR d = 0 TO 4 : LOCATE #2,2+a,2+d : PRINT #2, 
bso MEX aS SOUND: aie Gre tinct 6 FOR © = 1 ro! 4005 
NEXT la NEXT a 3 RETURN 

BOO LREATE #1,7,0 6 FEN #156 + SRINT shi, “GREAM evO 
OU HAVE -ENOCEED", - EQECATE #15809 shies rene Ee 
TVELES OGFRF THE WALL” 

S05 GOUSUB 8500: CES tes LOCATE His, take SR NG Beas 
“Type...run...and press..RETURN...for another gq 
On ' a END 

SS@ RESTORE = FOR nm = 1° Or ad 

855 READ m s READ -qi 2 SOUND doim.q,7 NEXT n 

860 RETURN 

So ae 478,75,9,10,478, es PO, ES |, A ct eee Oley ad 


efvty OQ, 


az pe 


0,426, 3¢ 478,25, 426, a 379, 25,478,85,279,75 
905 DATA O,10,379,75 10,379, 42, 319,75,258, 20,579 


oe =58, eee ie pie es 42,0,10,478,42, 284,72 
10, 284,75,219, 30,379.42, 478,30, 426,50,2379,20,42 

ag 478,30,568,75,638,85,0,10,638,85.,478,75,0,10, 

478,75,0,10,478,42,379,75,426,50 

910 DATA 478,42,426,75,279, 20,478,985 
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CRA CK-THE- 
CODE 


PARENTS- this is a good basic program to test and improve logical understanding and 
thinking, and there is plenty of scope for developing graphics. The aim of the program is 
to guess the secret code - a four-digit number, selected at random, but where each digit is 
different. 

CHILDREN- how good are you at cracking secret codes? Here is your chance to find 


out! The computer will choose a four-digit number and each digit will be different. E.g. 3 
6 9 4. You have to guess the number. 


The computer will ask you to enter four numbers. You MUST press the comma key s 


after entering each of the first three digits and [S\N@@Sisi after the fourth. 
For example:- 


2 press < 
8 press < 
1 press < 


5 press ENTER 
The computer will then inform you if you are right or not by using the following 
symbols:- 

X_ informing you that the number is not in the code. 

* informing you that the number appears in the code and is in the correct place. 


or @ informing you that the number is in the code but in the wrong place. 
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Your screen will look something like this:- 


CRACK-THE-CODE 
Try four numbers 


25, 8, 9, 2 
XX *@ 





Four more numbers 





At the end of the program, when you have cracked the code, you will be told how many 
guesses it took you. Have another go to see if you can beat your score. 


PROGRAMMING HINT - BORDER COLOURS 

You can change the colour of the BORDER of your screen by adding any of the colour 
numbers from the Master Colour Chart (Amstrad User Guide, page F3.2). Type 
BORDER 3 (press [AN MMSia} ) and your BORDER colour will change to red. Type 


BORDER 24 (press {{Nggaigi ) and your BORDER colour will change to bright 
yellow. 


Try this program which should give you all the border colours with a pause between 
each change of colour. 

10 FOR c = @ to 26 

20 BORDER c 

30 FOR t= 1 to 500: NEXTt 


40 NEXT c 
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10 REM code 

40 MODE © 

JO BORDER © 7. ClS=sFArPER S22 PENDS 
COURANT areal gil: Cn ee IIN Eger erate 

7Q LOCATE 4,7 

BO FRINT "CRACK-THE-CODE" 

90 LOCATE 4,10 

100 FRINT "ADIN 1994" 

Om ROM = 1 BOs 4606. sNE xT & 


120 INK 2,8 : INE 3,2 
Poesg = 6 

140 a = INT(RND¥10) 

150 b = INT(RND*10) 

160 c = INT(RND¥10) 

170 d = INT(RND¥10) 

180 IF a=b ORa=c ORa=d OR 4b 
Roc =d THEN 140 


= Jc) OR b 


=dQOQ 


PP OmGes Orie Ie: PRINT “Grack—jhe-Gode 


200 FRINT "Try four numbers" 
210 INF 3,265 

220 INPUT wyx,yyz 

2n0)Qa=oge rnd 


240 IF a = w AND b = x AND c = y AND d = 


Q 


Boot ae—sNeennehy PEN 6 secs GORS 28 
2600 TF w= 0 ORewe=-e ORew-=-d THEN PRINT 


Peso) a os GOTO s3y 
BOM ECUNT = Sus 


Seo rhb = “I TREN UERINGE." i493; 9eG0To 


290 IF ~ = a OR x = c OR x = d THEN 
Cees bOROns2O 

SOCEM Tay Sa % Ms 

Reena 
Bee ee aioe uy a GR y = b OR y = d THEN 
(22 5))5 SON seam 

S40 PRINT ™ X's 

as (lns= rc ete Mimi WM fe et oe ee (ahaa) 
S70 le 2 = a GR 2 = b (OR 2 =e THEN 
(229) : GOTO 400 

SOO HN emo 

400 PRINT “Four more numbers" 

410 GOTO 220 

S00 PRINT "JACKPOT" 

510 PRINT "code was";aj;b 
Peavwenl ole Look Yours 
s20 FOR m = 9 TO 5 

240 FOR n = i TO 7 

550 SOUND 1,478,5,n 

560 NEXT m 2 NEX@ am 

370 END 


Wot 


wd 
: 
5 


g a goes" 
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amc ESIN eefestr Silom yeumtes csi eee mites (hai U2) 


320 


PRINT 


360 


PRINT 


400 
PRINT 


uw 


THEN 350 


"* CHR 


" s CHRE 


"s CHR 


"3 CHRE 


ALIENS 


PARENTS: this program gives practice in subtraction, whilst trying to land the 
ALIEN spacecraft. The program begins by giving the choice of numbers to be used - 
eight different groups between O and 1000. As the program can easily be used by very 
young children they will require initial help in deciding the range of numbers to be used. 


CHILDREN- land your spacecraft safely by correctly answering the subtraction 
problems. A safe landing will bring out the ALIENS to greet you! The program begins 
by asking you to choose the degree of difficulty of your sums. Numbers between:- 


a) 1 and 10 

b) 1 and 20 

c) 10 and 20 
d) 20 and 50 
e) 50 and 100 
f) 100 and 200 
g) 200 and 500 


h) 500 and 1000 


you must press the letter showing the numbers that you require and then press the 


GG *<y. 


Move your spacecraft to make a safe landing by answering the sums correctly. After 
you have typed in the answer you must press the [ANWMa} key. 
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Your screen will look like this:- 


Decide how difficult you want your sums 
Do you want numbers between: 
a) land 10 

b) and 20 

c) 10 and 20 

d) 20 and 50 

e) 50 and 100 

f) 100 and 200 

g) 200 and 500 

h) 500 and 1000 

7 of 


and 





PROGRAMMING HINT - DELETE NEW 


Erasing lines or sections of a program is extremely easy and because of this the DELETE 
command must be used carefully. To erase a line, type the number of the line then press 


SNGGais) . For example:- 
670 (SNM) will erase line 670. 


DELETE 300-500 will erase all the lines from 300 to 500. 


31 


DELETE 200- will erase all the lines from 200 to the end of the program. 
DELETE -300 will erase all the lines from the beginning of the program to 300. 
NEW will erase all the current program in the machine. 


Beware of these commands!! 


i REM aliens ; 

LQ 2# = CHR#(1435)+CHR# (145)+CHR# (142) +CHR# (142) +CH 

R#(145) 2: y# = CHR#(143)+CHRS (145) 

iS «xf = CHR# (22) +CHR# (32) +CHRE C352) 

ZO PRINT #1, CHR# (22) +CHR# (0) 

40 (FEN Ios) INE lb, 22]: FEMS 3) TNE. 2.0) Rene ese 

Koy LOU SE MO ors IN is teers: 

45 WINDOW #1,1,40,1,25 

47 WINDOW #2,1,12,1,4 

48 GOSUB Ss0 

SO BORDER 23 : PAFER #1,1 : FAPER #2,1 

SO) (GIES etd’ es GIS: as 

65 d =0 

79 GOSUB 30a 

Pa eS ee ; 

80 e = INTCRND#f)+h : g = INT (RND¥¥)+h 

90 PEN. #2,0 3 LOGATEL# 23300. : PRINT #HS, e505 + “sig 
100 LOCATE #2,1,2 : INPUT #2,ans 

110 IF ans => e + g THEN FRINT #2,"no,try again" 3: 
GOSUBNeSOe 25 COGS 

120 PRINT #2, "good" s/ GOSUB 2Se0—:. do =id +l = sos 
B 390 = GOSUB 400): GOSUB =50 

120 TR ad s= Oo THEM Soo 

1a GOna ass 

2eoUSOUND Lota 9,20 oo. RETURN 

29O FOR St = 1.:1O.2500). NeXt RETA 

SOG FLO O,210,2 5 DRAW sO, 240, 2 t) DRAW cian cee 
RAW 105,195 : DRAW 125,225 : DRAW 180,180 : DRAW 1 
95,180 : DRAW 210,207 : DRAW 355,207 : DRAW 375,34 
O : DRAW 465,240 : DRAW 510,285 : DRAW 555,285 : D 
RAW 615,225 

310 PLOT 15,45,2 : DRAW 45,75,2 : DRAW 90,75 : DRA 
W 120,45 : PLOT 210,75,2 : DRAW 270,125 : DRAW 21S 
yiso 3: DRAW 375,75 : PLOT 405,75,2 5. DRAW4Soohes 
: DRAW S23,165 +: DRAW S55, 155): DRAW 495,75. 5. FLOl 
5355,125,2 : DRAW 385,180 : DRAW 615,180 : 

320 PLOT 255,9,2 : DRAW 200,45,2 : DRAW 345,45 : D 
RAW 390,0 : RETURN 
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350 PEN #1,2 : LOCATE #1,a,b : PRINT #1,CHR#(214); 
z$;CHR#(215) : LOCATE #1,a,b+1 : PRINT #1,2#3y# : 
LOCATE #1,a-1,b+2 2 PRINT #1,2¢:y$:y# 

360 LOCATE #1,a-1,b+2 : PRINT #1,CHR#(143) s¢%3CHRE 
(145) sx#;CHR#(145) 2: LOCATE #1,a-1,b+4 : PRINT #1, 
CHR# (142) 5x#53CHRE(131) yx#s CHRE (145) 

See CEN #1 ,5 2 FOR c = © TO 4 STEP 2: LOCATE: #42.,a 
tite, bert s-PRINT 41 ,CHRE (14S) (2 (NEXT c 

380 RETURN 

SOs cd = GOTO S9S 

o7eePOR gy = O0TO) 4 LOCATE #1,a-1,b+5 + PRINT #1, 
Micsacrerce ens: INE XT 9 

395 RETURN 


400 IF d = 1 THEN a = 2B: b = 1 
4035 IF d = 2 THEN a = 20 : b = 1 
ZO We d= 3 TREN a =) 26 7 p= 2 
415 IF d = 4 THEN a = 26 : b= 
420 IF d = 5S THEN a = 24 : b = 3 
fesbe d = 6 THEN Va = 22° 2 b= S 
Sn leed =" 76 THEN a = eGR ebe= 9s 
425 IF d = 8 THEN a = 18: b = 4 
440 IF d = 9 THEN a =16: 6b = 6 
4435 IF d LOUTHEN “a= 1S 3 bo =-8 


450 RETURN 

SOM minute tein Coe ere hinaem) PEN Gd 2 ROR ko = 
COO: MOEA theory tS 2 IRON Hd CHR Sai 
SeNEXD, & 

SO2 LOCATE #1,20,3 : PRINT #1,"Meet the aliens" 

gsoaS CLS #2 : PRINT #2,"Type run for another go" +: 
INFUT #2,h¢ 

SO he =e rum” THEN 1 

geo) END 

Boel outie ios te s HORDER (2 PAPER HIe 2s PARE 

R #2,2 : FEN #1,3 

aoa LOCATE #1,1,1 : FRINT #1,"Decide how difficult 
you want your sums." 

560 PRINT #1,"Do you want numbers between :" 

Soa PRINT #1 2: FPRINT #1 : PRINT #1,"a). 1 and 10": 
ERouN a eds RRC CN lee) eas: Came 20 

SOM li fel re iN el Se) Loads 20's REM Feb 
Seto Wee the ge Cle Oe meinicl ere 

S75 FRINT #1 : PRINT #1,"e) SO and 100" : PRINT #1 
Pee uNle tig toy 100) cid) 200" 

580 PRINT #1 : PRINT #1,"g? 2300 and S00" : PRINT # 
1: PRINT #1,"H) SOO and 1oOo00" 

S90 PRINT #1 : INFUT #1,p? 


SUOn Wpeege eas TEEN fs secs? a= ft 
Spee see THEM = SOC rho 1 
604°70F pe = "ce" THEN ¢ = 10 : h = 10 
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606 
608 
610 
612 
614 
615 


Le 
ie 
di 
IF 
i 
RET 


p+ 
URN 


NW) at a 


Bett 
eae 
We ut 
Ges 
LUT ad 


THEN 
THEN 
THEN 
THEN 
THEN 


hahha 
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= AP 
af 


= 30 


190 
200 


gOaQ 


a 


V-A-N 


PARENTS- this program will give practice in the recognition of verbs, adjectives and 
nouns. 


CHILDREN- when you study English Language, it is necessary for you to be able to 
distinguish between different parts of speech. This program will give you practice in 
identifying verbs, adjectives and nouns. 





He quickly drank the fizzy 


orangeade. 











Which word is the noun? 


On the screen, you will see displayed a sentence. Underneath the sentence you will be 
asked “‘Which word is the noun?” (or verb or adjective). You have to choose the correct 
word to answer the question. Type it into the computer and press the key. If 
you are right, the screen border will flash different colours before going on to the next 
sentence. If you are wrong, the computer will go straight to the next sentence. Look 
carefully atthe pattern of words in the sentence before you answer. 


PROGRAMMING HINT- SYNTAX ERROR IN ... 


If the message "Syntax error in 65" (65 represents any line number) appears on 
the screen, the computer has found something in line 65 that it does not understand. For 
instance, a command or function word may be mis-spelt or there maybe some other 
BASIC error. The line number in which there is a mistake will appear with the message. 
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1 REM v-a-n 

10 DIM sen#(30) =: DIM adj#(Zo) =» DIM nout(3o0) : DI 

M ver# (20) 

SOCPEN Ome SINE OOM re BENI ieee ENies We cise iN ics me rlite 
eel) RAs G PRIN connect es 

ZO RESTORE 400 : FOR a = © TO 30 : READ sen# (a) : 

READ adj#(a) : READ nout(a) : READ ver#(a) +: NEXT 
a 

50) BORDER 10 =2 FPARERes, 2 GES 

60 b = INT(RND*¥21) 

65 PEN i : LOCATE 2,5 : PRINT send (b) 

67 PEN 2: LOCATE 2,10 : FRINT “Which word is the 


ts 
4 


79 c = INT CRND#3) 41 

80 ON © (GOTO TOO) tam, S00 

100 PRINT "adjective?" 

LLG GHSuR aso 

120 IF ans# = adj#¢b) THEN GOTO 200 
120 GOTO 350 

LS ReMi eo reas 

160 GOSUB 250 

170 IF ans® = nout(b) THEN GOTO 200 
[BO GOTORsso 

200 FRINT "verb?" 

2.10 SUSUR R a.) 

220 IF ans# = ver#(b) THEN GOTO 300 

220 GOTENASO 

2a ENG 
300 FOR d 
ee Oe 

210 GORGeS 
350 FOR e 1 TOs20> 2 (PRINTF NG ose NE kee meres 
f=) 7, Oh eee te rely Ss SBUN DIM a 27.0 Sake Ogi iano igh yet sensi 
ORBt =O LoOe se Ne Xai t os NES ee 

260 GOTO Sa 

400 DATA “We walked up the steep hill.",steep,hill 
,walked 

402 DATA "The old man was tired.",old,man,was tire 

d 

404 DATA "She had a hot bath.",hot,bath,had 

406 DATA "The captive tiger roared fiercely.",capt 
ive,tiger,roared 

408 DATA “He sharpened the blunt pencils.",blunt,p 

encils, sharpened 

410 DATA “The young girl screamed loudly.",young,g 
irl ,screamed 

412 DATA "The damaged plane landed safely.",damage 
d,plane,landed 

414 DATA "We followed the muddy footprints.", muddy 
»footprints, followed 


LOCATE 2,13 :. INFUT ans? : RETURN 
1) POP TS BORDER INT CRN es SOUND: 
FOR t =01...0..200 22... NE Xelisth seer: Vel 


~~, 
a 
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416 DATA “He quickly drank the fizzy orangeade.",f 
lzzy,orangeade,drank 

418 DATA "The sick man spoke softly.",sick,man,spo 
ke 

420 DATA "He repaired the broken window.",broken,w 
indow,repaired 

422 DATA “We lost the blue ball.",blue,ball,lost 
424 DATA "The crescent moon shone brightly.",cresc 
ent,moon,shone 

426 DATA "We looked at the twinkling stars.",twink 
ling,stars, looked 

428 DATA "She enjoyed the birthday party.",birthda 

y, party,enjoyed 

430 DATA "The old car ran smoothly.",old,car,ran 
432 DATA "The huge bonfire burned tbrightly.",huge, 
bonfire,burned 

474 DATA "The black cat walked noiselessly.",black 
,cat, walked 

426 DATA "The careless burglar was caught easily." 
»careless,burglar,was caught 

446 DATA "I carefully studied the torn 
time-table.",torn,time-table,studied 

442 DATA "We laughed at the idiotic clown.",idioti 
c,clown, laughed 

444 DATA “We admired the colourful butterfly.",col 
ourful ,butterfly,admired 

446 DATA "The submerged wreck was dangerous.",subm 
erged,wreck,was dangerous 

448 DATA "The cheeky sparrow chirped noisily.",che 
eky,sparrow,noisily 

43590 DATA "She carefully held the baby bird.",baby, 
bird, carefully 

452 DATA "We stood by the swollen river.",swollen, 
river ,stood 

454 DATA "I bought a crusty loaf.",crusty,loaf,bou 
ght 

456 DATA "He wore a blue jumper.",blue, jumper ,wore 

458 DATA "The golden daffodils were picked 
carefully.",golden,daffodils,were picked 

460 DATA "The green tomatoes ripened slowly.",gree 
n, tomatoes,ripened 

462 DATA "The old man snored loudly.",old,man,snor 
ed 
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JAIL 


PARENTS- this is a game to develop logical thinking by working out the code number 
required to break out of JAIL. There is a choice of six degrees of difficulty:- 


a) Numbers 1 - 20 
b) Numbers 1 - 50 
c) Numbers | - 100 
d) Numbers | - 500 
e) Numbers 1 - 1000 


f) Numbers 1 - 10000 


It gives the opportunity for the child to work against the clock, allowing, if you wish, 
only one minute to break out of JAIL. 


Having decided the degree of difficulty, which can be done by an adult for the very 
young, then input any number between the chosen numbers. The computer which has 
randomly picked the code, will inform the child whether the inputted number is ‘too 
small’, ‘too big’ or correct. Then the logic begins to work out the next input number. A 
number line (a line of numbers in sequence), such as a ruler, will help the younger child. 
When the code has been found you have escaped from jail. 


CHILDREN- captured in jail your thoughts turn to escape. The only way is to release 
the lock by finding the code number. Will you succeed? Your freedom screen will look 
like this:- 
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I'M FREE 





You will need to choose the degree of difficulty of the code, shown on the screen like this: 





Degree of difficulty 


a) Numbers 1-20 
b) Numbers 1-50 
c) Numbers 1-100 
d) Numbers 1-500 


e) Numbers 1-1000 
f) Numbers 1-10000 


Type a,b,c,d,e, or f 


| 





and, if you wish, to impose a time limit of one minute to break free. The idea is that you 
put a number into the computer and you will be told whether that number is ‘too small’, 
‘too big’ or correct. It is then up to you to work out the next input number. Your screen 


will look like this:- 
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any number 
7 5000 
too big 


? 2500 
too big 





You must remember to press the [ANMMSR] key after you have typed each number. 


PROGRAMMING HINT - LOCATE 3,6 


LOCATE is auseful command which moves the text cursor to a new position relative to 
the WINDOW being used. When no WIND Ow is specified the entire screen is used. Hence 
LOCATE 3,6 moves the text cursor three columns along and six lines down. Your text 
is then printed. Of course you must use figures within your working mode. 


PREM aid 

= MODE © 

2 BORDER OG}: PAPER Os INK 0.0 2 im = © 

10 GOSUB 620 : GOSUB 4650 

20 FOR ac=. 1 TO1O SOUNDED, 127, 207549 SOUNDS? 947 


8520,6 2 NEXT a 

SOR CES =: SBORDERGCAs: Minky Gees 

40 PEN 5S : INK 3,6 +: LOCATE 1,3 : FRINT “Degree of 
diffi eulieys 


79 LOCATE 32,5 : FRINT "a) Numbers 1-20" 

vo LOCATE 3,8 : PRINT "b) Numbers 1-50" 

60 LOCATE 3,19 : FRINT "c) Numbers 1-100" 
79 LOCATE 3,12 : PRINT "“d) Numbers 1-500" 
BO LOCATE 3,14 : PRINT "“e) Numbers 1-1000" 
90 LOCATE 3,146 : PRINT "f) Numbers 1-10000" 
92 FRINT: PRINT "Type a,b,c,d,e or f" 

°4 COECATE S,22 2 INFUT d= 
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100 IF d# ="a" THEN num = 20 
1O2 TRAds ="b!. THENYnume= 5G 
104 IF d# ="c" THEN num = 100 
106 IF d= ="d" THEN num = 500 
108 IF d# ="e" THEN num = 1000 
110 IF d& ="f" THEN num = 10000 


115 code = INT (RND*¥num) +1 
P4O0> CLS os“ BORDER 4: 2) INK’ 07,42 °PEN® So: INE 3,6 

150 LOCATE 2,8 : PRINT "Do you want to beat" : LOC 
Aieye LO? MRRINT ST eherelockh to" 

fs LOEATEt2 42°23" PRINT “yes*or one” 

P36 LOCATE 2eloos INEUTac= 

160 IF z# = "yes" THEN 170 

foes ee+ = “note tHEN 1566 

L6S6 CES): BORDER Ol 2 I NK 207 O-2SINE 2262: LOCATE 1 
yoo PRINT “anyenunbers 2 GEno" rss 

170 LOCATE 2,18 : PRINT "You have one minute to fi 
nd the number" 

Wien = = LTO Saeoo-s NEXT t 

175 datum = INT(TIME/200) 

PBOS GES = BORDER MO ss-INE Ofori ME 2.26, sICOCATE 21 
yl : PRINT “any number" 

182 ticker = ((TIME/2300) -datum) 

Les iP ticker (= 60—-THEN 506 

185 INFUT ans 

190 IF ans * code THEN 300 

195 IF ans * code THEN 400 

200 FRINT “well done" : GOSUB 800 : m = 1 : GOSUB 

GaOmseetNi 2 2ousObAie Leds FRING “Greak your bre 
ameaic = LOCATE lS,2¢ 3s FRINT “of sade 

OO het =a GeO On si xq t 

Ome omen SO Se oo Olsen Em eGectt hkl Nhe nti) inte 
Zo Sure SOU 

eee Alien te ee Ge Mussa Uc y oe Re LN Dm veut 

want another" 

222 FRINT "game ? (yes/no)" 

Seo OGAME oc) NEU oS 


22/0 (es fte=" “no? THEN= END 

230 IF f# = “yes" THEN & 

BOO hile too snark © Le e2e = ne: = THEN los 
=O1 GOTO 182 

ADO ERIN “too oLg: 2 kr 22 = "ne" THEN 18S 


401 GOTO 182 
500 m = 1 : GOSUB 620 : GOSUBR 800 : LOCATE 1,1 : PF 


RINT “out of times..." 

S05 LOCATE 3,2 ¢ PRINT-"s.stay im jail..." =; LOCATE 
Seo SPRINT Coetry AQAd mie ses 

S40 “POR + eft 2FO1S500-ek NEXT ( €) 25 G0TO 115 

620 PEN 1 2 INK 1 ,lics FOR r.= © TO. 420;STEP 60:5 
Ges 
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625 PLOT 8+r,90 : DRAW 15+r,106 : DRAW SS+r,40 : D 

RAW 904+r,128 : PLOT 132+r,6 : DRAW 117+r,14 : DRAW 
128+r,49 : DRAW 904+r,128 : DRAW 90+r,208 : DRAW 6 

Str,176 : DRAW 80+r,120 

630 PLOT 158+r,192 : DRAW 120+r,176 : DRAW 90+r,20 

8 : DRAW 90+r,224 : DRAW 94+r,218 : DRAW 84+r,240 
: DRAW 994+r,250 : DRAW 994+r,230 : DRAW 904+r,224 

622 IF m = 1 THEN 637 

635 GOSUB 470 

637 NEXT R : RETURN 

650 PEN 2: INK 2,9 : FOR s = 0 TO 600 STEP 30 : F 

LOT 30+5,400 : DRAW 30+5s,0 : NEXT 5s : RETURN 

670 PEN 3 : INK 3,24 : PRINT "FIND THE CODE NUMBER 
" : PRINT "TO BREAK OUT OF JAIL": RETURN 

B00 FOR b = 1 7T0 5 : SOUND 1,119,10,6 : SOUND 1,84 
.1,6 : SOUND 1,47,10,6 : NEXT b : RETURN 
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FLASH 


PARENTS- a program to test your memory as four colours are flashed onto the screen. 
The order of colours then has to be typed into the computer’s memory pressing 
after each colour has been written. The words must be spelt correctly but help 
is available with the correct spellings appearing on the screen. 


CHILDREN- how good is your memory? Can you remember a sequence of colours? 
Have a go with this program. Four colours will flash on the screen and you must 
remember the order in which they appeared. The colours will flash in each quarter of the 
screen, working clockwise and beginning with the top left quarter. Then type in the 
order of colours pressing after each colour has been typed. Your screen will 
look like this:- 








TYPING TIP- the colours only flash onto the screen for a short while but if a younger 
child is playing the game this can easily be changed by making the time pause at line 300 
longer. Do this by increasing the figure 500 to 600, 700, 800 or by any number that you 
wish. 


PROGRAMMING HINT - PEN INK 


Line 5 lists all the PEN and INK colours that the program uses and by putting all these at 
the beginning of the program reference to these can be made at any time throughout the 
program. The program is written in MODE @ (line 3) and in this mode it is possible to use 
16 of the 27 colours available. 
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PEN ® : INK 0,® gives PEN number (the colour of INK number 0 (black) 

PEN 1: INK 1,1 gives PEN number | the colour of INK number | (blue) 

PEN 2: INK 2,26 gives PEN number 2 the colour of INK number 26 (bright white). 
You will see that the two INK numbers refer to the PEN number and the colour of INK. 
Throughout the program the colour of the text or graphics can be achieved by using the 
correct number PEN according to the colour required. Therefore PEN 2 would give the 
colour “bright white’ for the text or graphics that followed. Referring again to line 5 the 


command PEN #2, 6 would give a ‘bright green’ for the textor Pouce inWINDOW #2 
(the 6 referringto INK 6,18). 


1 REM flash 

os MODE © 

4 DIM c#(7) 

eh Rss oth aie INF CGC ee Fes ee PN cee Stes |e mime oe 

Seo PEN se: LN ec sae Niece Neamt, oe tee tel ees 
[Ne ae 1S UREN Gir ENE G6. 1o 8 PEN 7 os INRA, 243 


PEN 6 ye UN eos 

7 BORDER © +: FPAFERS © S-EeGAvibe@s.6 = FRING UTESR- Ye 

UR MEMORY" : LOCATE 1,9 : FRINT “REMEMBER THE COLO 

URS” = LOCATE 3, Ea 2 RON eoesS THEY FEASH ONY s.ka 

CATE S,15 +: PRINT RRB SCREEN? =) BORG = sles Gonm 
2 NES ip at 

8 GOSUB 400 

19 WINDOW #1,1,20,1,25 

12 WINDOW #2,1,10,1,12 

14 WINDOW #2,11,20,1,12 

15 WINDOW #4,1,10,12,25 

18 WINDOW #5,11,20,12,25 

20 BORDER 1 : PAPER-#4L,8 =: CLS #2 

hohe eal ene ese Le) edit 

40 FEN #1,6 : LOCATE #1,7,12 : PRINT #1, "R-E-A-D-Y 

"s LOCATE #1,1,16 : PRINT #1, "hit any key to star 

¢ 

42 IF p = 10 THEN 46 

45 FOR t =. 1. 70 SOs NEXT (ts CUS #10 a) NEXT og 

46 n# = INKEY® : IF n# = "" THEN 46 

48 CLS #1 

30 a = INTCRND*8) : b = INT(RND*8) sc = INT (RND#8) 
: d = INT (RND*8) 

60 PAPER #2,a : CLS #2 : GOSUB 300 : PAPER #2,8 : 

CLS #2 

62 FAFER #3,b : CLS #3 : GOSUB 700 : PAPER #3,8 
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CLS #53 


66 FAPFER #5,d : CLS #5 : GOSUB 300 : PAPER #5,8 : 

CLS #5 

68 PAFER #4,c : CLS #4 : GOSUB 300 : FAFER #4,8 : 

CLS #4 

250 PRINT #1,"Fossible colours used were:" 

eou FRINT #1,"black" : PRINT #1,"blue" : PRINT #1, 
“white" : PRINT #1,"red" FRINT #1, "purple" : PRI 

NT #1,"orange" : FRINT #1,"green" : PRINT #1,"yell 

ow" 

260 PRINT #1 : FRINT #1,"“What was the order" 

265 FOR e = 1 TO 4 : INFUT #1,ans#(e) : NEXT e 

268 at = "" s at = a¥f + ans#(1) : b# = "" : bt = b 
£ + c#(a) 

270 d# = "" : d# = d#¥ + ans#(32) : ef = "" : ef = eC 

ret Cb) 

Sete =e! fhe $e anstts) os gh = ( saa 9G 

$+ c#(d) 

274 htes "os HS Sone SF arist (4): 2s js o= "os ojF Se 5 
ee Gare) 

276 IF at = b# AND dt = ef AND f# = g# AND HF = jt 
THEN GOTO 320 


278 FEN #1,3 


280 PRINT #1, "*###*##nNOkKKEH" f 
FRINT #1,c#(b) 3 


: PRINT #1,c# (a) : 


2 FRINT Hl este) 

BAe OR ot TOO mek NEE 

Sees bang 330 

SOG ROR et = Mil FoOU Sse NEXT ee SRE TURN 
See eis ett Ve rene a) = si nO 2 eel OCATE eH, 
eaten DIM GRIN Does) mst homia Miler Deoamla—th=-C)— 1/05 ns 
Sela ee Ohta ete) aoa SNE kT tc 

Bove Gio ties NEXT iq 

SoG Peres tl,ots CLS #1 Ss Leecare #iyesis 


1,"hit a key to start" 
me INREY#<: IF mt 

ee) OA el geen) 

400 FOR g On te ey 

405 READ c#(q) 

419 NEXT g 

415 RETURN 

420 

yellow 


TO on 
parostetae = 


THEN ~232 
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FRINT #1,"order was" 
PRINT #1,c#(d 


7 pict ee 
SBUND. iys 


Seer UM 


DATA black, blue,white,red,purple,orange,green, 


SNAP 


a game for two players 


PARENTS- an exciting but simple program simimlar to the traditional game of 
SNAP. It will test a child or adult’s quickness of eye and reflexes. The very young child 
will also have practice in matching numbers. Players are asked for their names and then 
given either the S key orthe L key to press down for SNAP! These keys are at opposite 
ends of the keyboard so confusion should not arise with an opponents hand getting in the 
way. Points are awarded depending on the value of the SNAP cards. Stop the game by 


pressing the key. 


CHILDREN- SNAP!! You must have all played the game with playing cards. Now 
try computer SNAP! Test your reflexes and quickness of eye against a friend, mum or 
dad. You will be asked to type in your names and will then be told to use either key S or 
key L . Watch the numbers and when two the same appear press your key down. The 
computer will decide who pressed first. Points are awarded and shown on the screen, 
which will look like this:- 


epee 4 | John 10 =p 





Things happen when you SNAP correctly. 
PROGRAMMING HINT - PAPER 


The PAPER refers to the colour of the screen. Line 20 defines ten colours through the 
PEN and INK command. In order to colour the screen use the command PAPER 
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together with the PEN number for the colour INK that you require. For instance in line 
20, PEN 7 : INK7,15 gives orange (colour number 15) so, PAPER 7 when used in this 
program would give an orange coloured screen, when the screen has been cleared (CLS 
OraCUiGyi. 


Try to work out the colours of the BORDER, PAPER andPEN inline 205, but remember 
that the BORDER colour is taken straight from the master colour chart, (see User Guide) 
and does not refer to a PEN or INK statement. 


1 REM snap 

10 MODE oO 

ta GOSUR 200 3 “CLS 

COspeNGOes TN O70 2 PEN tf =S0Ne 1,6 3 PEN 2 2 INE 
eels PENS 2 SINK SS, 265: -PEM 4° 2 INK 4 -1g4s ABN 

mee TNE) Si, 24:02 OPEN Gesoc INK 6,20 4:-PEN For INKE7 4S 
Reet sei cee me NS eee LN oe 

50 BORDER 22 2 PAPER 2 : CLS : PEN Ss PRINT.;::-RI 

NT "Give me your names" : PRINT "(max. of 4 letter 

s)" 3: PRINT 

35 PRINT “Flayer 1" : INPUT p# 

S/or Reiter Lavyer 29 2 INFUT ppt 

40 PRINT : PRINT p#3"you must press key §S" 

42 PRINT : FRINT pp#¥3"you must press key L" 

44 PRINT : PRINT =: PRINT "You will scors" : PRINT 
"points as you SNAF" : PRINT “up the numbers" 


45 FRINT : FRINT "Get Ready" 
46 FOR t = 1 TO 8000 : NEXT t 
90 p = O : pp = 0 

935 MODE o 


100 5 = 0 : a = INT(RND*6) =: b = INT (RND*6) 
POS EOE ATE Ons os ERIN cs = EOCATE ti tais FRINT 6 


PA EBGeie sis. es RNIN) peep s LOCATE Tine = PR UNT 


pp#3pp 

115 at = INKEY? 

120 5 =5 + 1 

120 IF a® = "s" AND a = 6b THEN LOCATE 6,20 : PRINT 
Snape sO 2a p=" pete to 1 GOSUR 19e ss Gane SS 
122 IF aé = "1" AND a = b THEN LOCATE 6,20 : PRINT 


[shape spor: Pp = Poet a les GOSUR 190 °F GoTaos 


tsa theses 80 THEN tis 

140 GOTO 100 

190 FOR t = 1 TO" TO00 fr UNEXT t 

200 EES = FOR m = 1 1G 6 = BORDER’-INT (RND¥26)) +17 +: 
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LOCATE 6,13 : PRINT "S=N-Q-P") : PAPER INT (RND*¥9) +1 
: SOUND 1,53,15,6 : FOR t = 1 TO z00 : NEXT se 5-26 

LS: 2 sNEXT m 

“95 BORDER 23 : FAFER 2 : FEN = : Gis 

210 RETURN 
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MULTIPLICATION 


PARENTS:- the aim of this program is to give practice in multiplication using numbers 
between 0) and 20. Speed is an important factor and the children are timed whilst 
achieving ten correct answers. The program begins by allowing the child a choice of 
difficulty either:- 

a) easy 

b) harder 

c) very hard 
The easy questions use numbers between 0 and 10 e.g. 7 X 8. The harder questions use 
one number between 0 and 10 and one between 10 and 20 e.g. 16 X 5. The very hard 
questions use two numbers between 10 and 20 e.g. 12 X 18. 
CHILDREN- how quickly can you answer multiplication tables? It is always useful to 
be able answer them speedily and this program will give you plenty of practice. Test 


your skill against your friends time too. The computer will first ask you how hard you 
want the questions:- 


The easy questions, which are choice (a), will give you two numbers between 
0 and 10, 
for example 7 X 6. 


The harder questions, which are choice (b), will give you one number between 
O and 10 and one number between 10 and 20, 


for example 13 X 7. 


The very hard questions,which are choice (c), will practice your long 
multiplication by giving you two numbers between 10 and 20, 


for example 15 X 18. 
You will find it helpful to use a piece of paper for these questions. 


The computer will keep giving you questions until you get 10 correct. It will then tell 
you how long you took. 
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Your television set will look something like this:- 







7 secs 
20 X7 
? 140 
great, great, great 


Tony | 














or 





45 secs 
3X2 
25 






No No No No No 


answer is 6 





You must always remember to press [SNMMSiadas soon as you have typed your answer 
into the computer. Don’t waste time because every second counts! 


PROGRAMMING HINTS - RANDOM NUMBERS 


Random numbers are used to generate a variety of situations. In this program to give 
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numbers to multiply. Look at lines 210 to 220. The numbers are picked randomly:- 


a=INTCRND*11) picks arandom whole number between 0 and 10, including 
0 or 10 


a=INT(RND*11) +10 picks a random whole number between 0 and 10 and 
then adds 10 to it. 


So the formula a = INT(RND*b) +c will pick a random number ‘a’ where ‘c’ is the 
lowest number and ‘b’ is the highest one, worked out by adding “b’ to ‘c’ and subtracting 
one. 


Try this program:- 
10 a= INTCRND*30) +20 
20 PRINT a 


30 GOTO 10 


Do you have on the screen a column of figures between 20 and 49? I hope so!! 


1 REM tables 

10 MODE o 

=O BORDER MS GPAPER. Os INK WO, 22 

GOs GSSr FENG SSN Sit6 SwOCATE 22,4732 FRENE “Whe 

t is your name?" 

ZO NZBE ATE 205 

80 LOCATE 2, 

name 

96 LOCATE 1,10 : PEN 1 : PRINT “Let‘’s test your 
tables against the clock?" 

LOO PRINT : PEN Svsertiocag26 + PRINT “Yoo must giv 

e the correct answer to ten questions." 

110 PRINT : FEN 4 2 INK 4,1 °2. PRINT "Hit amy, key t 

o start" 

120 a¥ = INKEY# : IF a# = "" THEN 120 

PSO RGS ~: BORDER Fos) RACER. © 3 sINKy Oj22 s PEN 1 s 

INK 1,6 : LOCATE 1,4 : PRINT "How hard do you want 

your tables?" 

140 PRINT: PRINT : PRINT " 1) easy" : FRINT +: FRIN 

hen 2. hardert .s. PRiMieeser Ri NTiet oS) very hard.” 

TOM Mics sh ieee. iy Pema, <2 ihe a 

160 FRINT : INFUT d 

dee Ue ee elOiN ace ae eter Mipsis set ticl oles encore ey 

See a Omeatae—ly ghOe 2OOOrs = NEI Ess OTO! SO 


: INFUT name? 
SFr EM 2s ENE iO) 2) RRENT BHe led ar is 


Sf 


180 total oO 

190 datum INT (TIME/ 300) 

2O0wWCLS, SUBORDER \6Us (PAPER O ss cL NK 1050 

205 WINDOW #1,10,20,10,1 : ticker = INT((TIME/300) 
=datum) 2 LOCATE SIs i "2" FEN #157 2 UNG ee cee 
NT #1,ticker; "secs" ? 
S10 Ted =) Then 
) 


INT(RND*¥1i1) 2: b = INT (CRND*¥11 


215 IF d = 2 THEN a = INT(RND¥11)4+10 : b = INTCRND 
#11) 

220 IF d = 3 THEN a = INT(RND#¥11)+10 : b = INT (RND 
eA GEA 


240) EQEATE +o, Ges (RENTS 22 SE REN cise: an] eae) 

200) EOGATE 7,11) 2 .INFUT ans 

260 IF ans <> a*b THEN 400 

270 PEN 6 = -INK) G,oas. PRINT iso PRINTo"great) great, 
great" 

oy oi Fae Nims ili well done" 

277 LOCATE 8,17 : FRINT namet 

ZOOVE ORG = ite) Ol seb et 5 ieee Oana Noel nts 

SOUND 1,40,20,7 : NEXT g 

290 total = total + 1: IF total = 10 THEN GOTO 30 

QO 

295 GOTO 200 

SOO CES Ss Gis) Ae eG Aili Eee Omran hve Y CU chk s 

ticker; "secs" + FPRINT = FRINE “to get (10 'correct. ™ 

310 PRINT : FRINT "Do you want 19 more?" 


21S INPUT n# : IF n# = "y" OR n# = “yes" OR n#¥ = " 
YO Renaéea “YRS SHeNe Tao 
520 PRINT PRINT "Bye for now" : END 


400 BRUM so GiStNi s OPOR ce —75 Gls o Siete i 
410 SOUND 1,1911,40,c 

420 FEN Ssteink Ser ss PRINT No = 
420 FRINT : PRINT "answer is "3; a%*b 
S000 3 NEXh st seGUie 20m 


en -oe 


NE 
R 


: X 
FOR t = 1 TO 
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MORE OR LESS 


PARENTS- this program will help the understanding of the meaning of “more than”’ 
and “less than” using the symbols “>” and ““<”’ respectively, and allows for the use of 
four groups of numbers depending on the difficulty required. 


CHILDREN- do you know the meaning of the symbols “>” and “<‘“‘? If not, now is 
your chance to learn! The program first asks you to select numbers 


a) under 25 
b) under 50 
c) under 75 
d) under 100 
by pressing either a, b, c or d. The program then presents you with eight numbers and 


you must type in two of these to make the statement and sign true. Press TSNAMsig) after 
each number has been selected. Your screen will look like this:- 


Pick two numbers 
from the box 
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Pick two numbers 
from the box **GREAT** 


= 





Success will bring music and a random flashing of border colours. 
PROGRAMMING HINT - TIME LOOP FOR. ..NEXT 


Throughout all the programs, you will see statements which cause a pause in the 
execution of the program. Look at line 408:- 


408 FOR t =1 T0 3500 : NEXT t 
All that happens is that the computer counts from 1 to 3500. Even a computer can’t do 
that immediately, so there is a pause. The FOR starts the computer counting at 1. NEXT 
t makes it go back again and again until it reaches 3500. Because the NEXT t sends the 
computer back to the FOR, we call this a loop; so line 408 isa FOR. ..NEXT loop. The 
pause can be lengthened by increasing the number or, conversely, shortened by 
decreasing the number. 
Try this:- 

10 PRINT "London" 

20 FOR t = 1 TO 2000 : NEXTt 

30 GOTO 10 
Stop the program and alter line 20 to read:- 

20 FOR t = 1 TO.500-:-NEXT t 


Observe the result. 
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19 


REM less-more 


30 goes = 0 

40 CLS 

30 BORDER © 

60 FAFER 3 

mae Nips sobs 21 eed 

80 LOCATE 4,5 : PRINT “LESS THAN OR MORE THAN" 
902 LOCATE 4,8 : PRINT "Do you want numbers: " 

92 LOCATE 6-10"2> PRINTS’ ad)- under- 25" 

Ya EOGATE-O, Lenz PRINT %h) vunder So” 

96 LOCATE 6,14 3 PRINT- "c) under 75" 

98 LOCATE 6,146 : PRINT="d) under 100” 

100 LOCATE 4,20 : PRINT "Either a,b,c or d and the 
n press ENTER" 

toe TNE x= 

104 IF x# = "a" THEN = = 25 

Poe ee ee eS eC 

tes (Pe = c's Tiree 222 7a 

ey i se = es EN, eG 

TOSOCBORDER. OF eiPAPER ae. fF EN 2 INh Loss Cle 
110 c = INTC(RND#z2) : d = INT (RND*¥z) 

120 e = INT(RND#z) : f = INT (RND*z) 

120 g = INT(RND*2z) : h = INT (RND*¥z) 

140 j = INT(RND#¥z) : k = INT (RND#z) 

150 GOSUB 500 

loo EOEATE 2,2 2 PRINT "Pick two numbers” 
fanaa se RINT “Pron eines box 

160 y = INT (RND*2) 

POR Ve On TEN GOSUE Soo... OOOO) 

180 IF y = 1 THEN GOSUB 620 : GOTO 200 

2007 LU GCALE oo yo... hh lL Mee 

ecole) eee eee 9) sit eee ee IN lige 

220 LOCATE 6,8 : FRINT e 

250 POCATE Seid, 5 RRIUNT 

240 LOCATE 6,14 : FRINT g 

Soo POCATE oe17. 2 RING h 

260 LGCATE 7,12 = FRINT 3 

2A LOCATE G,22 2 FRINE ik 

foo LOGALE 20,84 = INPUT ep 

360 LOCATE 25,14 : INFUT s 

280 IF y = © AND p ¢< s THEN GOSUB 700 : GOTO 720 
390 IF y = 1 AND p } s THEN GOSUB 700 : GOTO 740 
400 LOCATE 20,3 : PRINT "No,try again" 

405 LOCATE 15,22 

406 IF y = 0 AND p > s THEN FRINT p3"is greater th 
an"s3s 

407 IF y = 1 AND p s THEN PRINT p3"is less than" 
3s 

408 FOR t = 1 TO 3500 : NEXT t 

410 GOTO 198 


oo 


S00 Blak Ome 
510 DRAW 50,250 : 
WwW 50,20 
520 RETURN 
S50 FOR a 
(145) 


555 LOGATE 2O0-a,18-a i 


© “GOm ts = 


DRAW 200,250 : DRAW 200,20 : DRA 


LOCATE 2O-a,10+a : PRINT CHR 


FRINT CHR# (142) 


560 NEXT a : RETURN 
6270 FOR a = © TO 4: LOCATE 28+a,10+a : PRINT CHR# 
(143) 

630 LOCATE 28+a,18-a : PRINT CHR#(143) 

640 NEXT a : RETURN 

7OO FOR u = 1 TO 30 : v = INT(RND*246) : BORDER v 
719 LOCATE 22,5 : PRINT “** GREAT **" 


7 la -SOUND 1, 40G4Y, 20 ous 


7 eS Ene ei ee 
BOR 7 oe) 
740 LOCATE 15, 
GOTO 750 
Coo URS Re cc Dc) 
760 IF goes « 10 
77pm ae eet SL ey 
Ww" END 


a 
eat 
oe 


NEXT u : RETURN 
: FRINT "“Yes"jp3;"is less than";s 


: FRINT "Yes"jp;"is greater than" 


SDE eo NE Xuleee sts 
THEN 108 


7-5 LOe ae NGL. 


goes goes + 1 


mE reO=R N Q 
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INVASION OF 
THE OCTOPOIDS 


Setting The Scene. 


The time is the 23rd century. There is a lot of interplanetary activity. The planet Earth 
is under constant threat from aliens (octopoids) from other planets within the galaxy. 
Security spaceships are in constant patrol around Earth. One of these patrols has been 
shot down by a ship from the planet Zercos. War once again is amajor threat. You are in 
command of a patrol ship armed with fire bombs, which on impact destroy the enemy. 
Can you survive your patrol duty and help rid Earth of these alien octopoids which are 
coming in swarms from Zercos? Death is always imminent from the deadly laser 
beams, volcanic eruptions causing thousands of meteorites, the octopoids, or by a 
direct collision with Zercos. 


Instructions. 


To survive your patrol duty you need to make five direct hits on the octopoids. 
Movement around the galaxy is through three coordinates:- 


gee. 


Remember that for each movement through the galaxy, you must input three numbers 
between 1 and 10. These are your three coordinates and must be entered in the order X, 
Y, Z as shown in the diagram. After each number has been typed in, press falNpgaiey . 


=| 


For example:- 


5 GEG 
5 GN 


RENTER 


You should get this:- 


Enter your three coordinates 
(press ENTER after each one) 


| 


Coordinates are 6, 7, 8 
Mark your coordinates 
Go West 
Go South 
Too far away 
Hit any key to continue 
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The program will direct you through the galaxy but you must keep a record to help you 
manoeuvre your patrol boat. 


For example:- 


Third | Direction 
Computer 


(Direction) Input 


GO EAST GOOD 
GO NORTH GO SOUTH 
TOO FAR AWAY} 3 FURTHER 


AWAY 





TYPING TIP 


The variable cl (lower case c and lower case 1) and the variable li (lower case | and lower 
case i) are both used:between lines 905 and 915. Do not confuse these with the 
numerical figure 1. 


PROGRAMMING HINT-IF....THEN Statements 


You will find this and other similar statements throughout all programs but in particular 
in this one between lines 190 and 430. The IF statement is used to compare two 
expressions where a simple YES or NO answer is given. In line 190, IF the value of ‘X’ 
equals the value of ‘a’ and the value of ‘Y’ equals the value of ‘b’ and the value of ‘Z’ 
equals the value of ‘c’ THEN GOTO line 700. IF all these values give a positive YES 
answer, then the program will go to line 700 (i.e. the line number after the THEN) . IF 
any of the statement is untrue giving aNO answer then the statement is ignored and the 
program passes to the next line. Try to work out in a similar way what happens between 
lines 445 and 472. In this statement the BASIC word GOTO may be omitted. 
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1 REM octopoids 

1TOSMODES 1 

20 BORDER © : PAPER © : INK 0,0 : CLS +: GOSUB 600 
SO PEN 1 : INK) 1,26 2 LOCATE 8316 2 FRINY “HERESeo 
ME, THE OGTOFOIDS" 

40 LOCATE, 12.19 sa FENSS. INKY SS, 21>? ER Nie Abd No 
ble 1984" 

oY FOR t = 1 iG s00e0s NEXT = 

60 CES: LOCATE 1.4) 2 FRINT “Thestime is -the.2arnd 
Century. The Flanet Earth is being invaded by OCTO 
FOTDS from the Planet Zercos. You are in Cc 
ommand of a patrol ship armed with Firebombs. Tee 
s your mission to destroy” 

63S PRINT "FIVE QCTOFOIDS and so save your Flanet. 
You move around the galaxy using coordinate 
s. Input three coordinates and you will be told wh 
ich direction to move in. Each coordinate will 
be a number between 1 and 19." 

68 FRINT "You need the correct combination of the 
three coordinates to destroy an Octopoid" 

70 PRINT "Beware of sudden death. Good luck. 

73, REN ts INE 156s PRINT 9s PRIN) 2 Hist amy skey oe 
Qo continue" 


77 at = INKEY$ : IF a$ = "" THEN 77 
80 p = 0 

90 e = INT(RND¥10)41 

91 # = INT(RND¥10) +1 

92 g = INT(RND¥10) +1 

95 CLS 


o7 TE = os MENG OO 

98 BORDER 10 : FAPER 0 : INK 0,0 : GOSUB 600 

100 FEN 1 : INE 1,24 : LOCATE 6,17 : FRINT “Enter 
your three coordinates" 

102 LOCATE 6,18 : PRINT "(press ENTER after each o 
ne)" 

104 LOCATE 6,20 : INFUT x 

LOG LOEATE Gy2t = I NFUTSy 

TOS EOGATE 64,22 s.cRNPUT 

140 CLS : GOSUB 600 

150 FEN 1 : INK 1,24 : LOCATE 6,17 : PRINT “Coordi 
Mates tareh hss uses cnee 

155 EOGATE Gel as PRINT "Mark your coordinates" 


160 IF x = e@ AND y = f AND z= = g THEN 950 
180 a = INT(RND*¥10)+1 : b = INTCRND#10) +1 
186 c = INT(RND*¥10)+1 : d = INT(RND*¥10) +1 
190 IF x = a AND y = b AND =z = c THEN 700 
200 IF x = a AND y = b AND = = d THEN 700 
210 IF x = a AND y = d AND z = c THEN 700 
220 IF x = a AND y = c AND z = d THEN 700 


ON 
So 


250 IF «x = d AND y = b AND = = a THEN 700 

240 IF x = d AND y = b AND z = c THEN 700 

2090 IF x = d AND y = a AND z = c THEN 700 

260 IF x = ¢c AND y = a AND = = d THEN 700 

270 IF x = c AND y = d AND = = a THEN 700 

2B0O IF x = c AND y = b AND z = a THEN 700 

290 IF x = c AND y = a AND = = b THEN 700 

300 IF x = b AND y = a AND z = c THEN 750 

210 IF x = Bb AND y = b AND = = c THEN 750 

S20 IF x = b AND y = c AND z = c THEN 750 

230 IF x = b AND y = d AND = = c THEN 750 

240 IF x = d AND -y = a AND z = b THEN 750 

250 IF x = d AND y = a AND = = a THEN 750 

360 IF x = b AND y = b AND = = d THEN 750 

370 IF x = b AND y = d AND z = a THEN 750 

380 IF x = a AND y = d AND = = b THEN 750 

3970 IF x = d AND y = d AND = = d THEN 750 

490 IF x = c¢ AND y = d AND = = b THEN 750 

410 IF x = c AND y d AND = = c THEN 750 

420 IF x 4 AND y = d AND = = a THEN 850 

470 IF x a AND y = a AND =z 7 THEN 800 

Aa) ee were NV-EOEaiE Oye BEN: 2 ENG S64. ; 
PRINT "Good" 

oO Reo se THEN -EGCATE Gye l=sSrPENeSo? TNR Sea -3 
FRINT "Go West" 

{rie lets oes THEN RAEATE Grete FENSS o: SINKiS.ors 
PRINT "Go East" 

455 IF y = # THEN LOCATE 6,22 : PRINT "Good" 

460 IF y>> * THEN EOQEATE 6,22°: PRINT "Go South" 
fon IP y = -- THEN LOEATE*6, 225: *FRINTS"6e North" 
465 IF =z = g THEN LOCATE 6,22 : PRINT “Good" 

470 [Pees Go THENSEOEATE 6, 22°23 PRINT o"Toe-far awa 
as 

472 IF z = g THEN LOCATE 6,23 : PRINT "Further awa 
ye 

480 LOCATE 4, 2a=-2-=FEN 1 seINkel i243 PRINT 2"Hitoan 
y key to continue" 

485 ad = INKEYS : IF a¥ = "" THEN 485 


490 GOTO 95 

600 FEN 2 INK 2,6,2 LOCATE 14,3 
08) CHR# (208) CHR# (208) CHR# (205) 3" 
HR# (208) CHR? (208) CHR# (208) 

605 LOCATE 18,4 FRINT CHR# (205) 5" 


PRINT CHR (2 
"Ss CHRE(204)C 


"s CHRIS (204) 


CLO GOR, U = Cate Sen FOR sy = O10 ei SOCAtEs 1S Fu 
sty s FRINT CHR#(143) : NEXT v : NEXT u 

615 LOCATE 16,7 : FRINT CHR# (204) CHR (208) CHR# (208 
>) s LOCATE 23,7 : PRINT CHR# (208) CHR# (208) CHR# (205 
) 

620 LOCATE 13,8 : FRINT CHR#(210) CHR# (210) CHR (204 
») : LOCATE 26,8 : PRINT CHR#(205) CHR# (210) CHR# (210) 
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625 LOCATE 18,9 : PRINT CHR# (204) CHR# (32) CHR# (204) 
CHR# (205) CHR# (32) CHR# (205) 

630 LOCATE 17,10: FRINT CHR# (204) CHR# (22) CHR# (204) 
CHR# (32) CHR# (32) CHR# (205) CHR# (32) CHR# (205) 

635 LOCATE 14,11 : PRINT CHR# (210) CHR#(210) CHRE (20 
4) CHR? (32) CHR (32) CHR# (211) CHR (32) CHRE (32) CHRE (20 
9) CHR# (32) CHR# (32) CHR# (205) CHR# (210) CHRS (210) 

640 LOCATE 19,12 : PRINT CHR (211) CHR# (32) CHRE (32 

CHR# (209) 

645 SOUND 1,47,20,46 : RETURN 

7OO-EES 2: BORDER SG" FP ARER © a eiNig 10, Ose 
NK 26 s) LOCANE S64) ERIN) Sere he oy 

OF Feertar Tae 

7OS-BOEATES 9 See PRINT Sb Shecoke ole O Siena ie. 


EN el eh 
Meet 


710 FOR k = 1 TO SO : LOCATE INT (RND#¥40)4+1,INT(RND 
*20) +5 72 FEN 2a TNE Se iN CRNDS2S) UP RNs ase ees 
OUND 1, INT (RND*¥1000),, 1076 °: “FOR t2=" lv TO SO>:=NEXT 
Ges NEXT 

729 GOTO 8O 

750 ELS? s BRRDERSOM?S =FAPER® Gn eINE 0,05 HREM Ls) & 

NE 1,6,12 : FOR h = 200 TO 400 STEP 20 : ORIGIN O, 

O : DRAW 600,h : NEXT h 

760 FOR 1 = 400 TO 600 STEF 20 : ORIGIN 0,0 : DRAW 
it, 4OOR See NE: 

77O (LOCATE? Tikes -FRINTS" DEATH! ERENT MnAB (Ss RY 4 
: PRINT TAB(6)3; "LASER" : PRINT TAB(10) 3 "BEAM" 

780 JLOCATE, 2ages : -RRINT “EBACE TO STARR? 

720 FOR m2=e20 DOCSTATEOR nes ss Tea SOUNDS, 2o55 

SO nies NE Xie SNE kh ome. eben Re 

S00 (FES BORDER GO tae PARE Ree se ENO) Ons eect et 
TO= ToGo ss ORIGIN@O5 2 sar ENE INE 1,18,26 : DRAW 
INT (RND¥400) +200, INT (RND*¥400) : NEXT r 

SVOs GREAT Gide 4oes PENS Sets SiN Om iNle ies lee) 
soil eu ums eb) CFV LV ES Bikey os tac bene Pf pt hea 
GATE Melo rs SERINE BAER TOSSTART? SRGOSUERs 1608 

B20 GOTO 80 i 
SSURELS 2 sRURDER Meet eAReRe Oe. 3 WNKSO. Ons SESE eS 
oo 

S60) RBCATE 25207 4 PENS ps Sih kk, © 2 Ri Nies DEAE 
**# DEATH#***DEATH##*#*DEATH#***" =: LOCATE 1,22 : FRI 
Nig D=E=A=1 sheesh ROS 0-6 ie OSE Op Sena eae 
ATE 135,24 2SFRINT "“BAGE STG) TRE ISTART’ 

870 GOSUB 1900 : GOTO 80O 

900) CLS” s -BORDER YOM aPAFER sce NRSOR© 

905, BORE Glyi= 1 20s SENG es cre Mire as 

9708) LOEATEMS, Ses PENS 2 SeINE S26 ear RIN | Good saw 
ell done five bombs an target" : FRINT "Type RUN t 
Go play again” 

910 ORIGIN 0,0 : ab = INT (RND*¥®100)+100 : FOR circl 
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e = 1 TO 2760 : DEG : PLOT 320,200: PLOT 320+ab*COS 
(circle) ,200+ab*SIN(circle) : NEXT circle 

21S) NEXhecd 2 -FOR tint 1G) 865: ORIGIN 20,0 2 PLOT 
220,200 : DRAW INT (RND*4600) , INT (RND*¥400) +: NEXT 1 
ie END 

O30 EES se RORDEN= ls tsePARER yO ee INKw Ons =--GOSUB <6 

OOn ee BEC Atta] ©; 20 SaePEN TS Sein 3,0) 2 FRING O-E-7, 

Slee Bae 8) Hie 

960 LOCATE 18,22 : FRINT "G*O#0*D" : GOSUB 1000 

2700p. = prlees60T0s90 

19000 FOR s = 170 14 : FOR t = 1 TO 500 : NEXT t : 
SOUND 1,84,20,5 : NEXT s : RETURN 
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COUNT 


PARENTS- this is a program for the very young child, primarily to help with early 
counting. The very clear graphics can be used to reinforce the learning of the colours. 
As the children using this program will be very young, it is important that they are given 
a lot of patient help and guidance. The program will select either:- 


moon buggies 

rockets 

ships 

or cars 

Up to five of these then appear, randomly on the screen. The background colour of the 
screen and the colour of each group of objects will vary with each new screen. The child 
has to count the number of objects on the screen, type the number in figures and press 
the [SNMRSR! key. Failure to answer correctly results in the correct number being 
shown. The program continues and can only be stopped by pressing the key. 


CHILDREN - it is fun to count with your computer. Have a go. Your screen may look 
like this:- 





| how many ? @ : 





64 


PROGRAMMING HINT - PRINT TAB() CLS 


In this program the PRINT TAB(figure) is used on several occasions to print graphics 
characters at a certain position on the line. It can also be used to print text. 


PRINT TAB(5) will move the cursor 5 spaces along the line whereas PRINT without 
the TAB would start at the beginning of the line. 


Try this program. You will see that line 10 clears ( CLS ) the screen:- 

10 CLS 

20 PRINT "London" 

30 PRINT TAB(5)"London" 

40 PRINT TAB(10) "London" 
On many occasions in this program listing of COUNT, the TAB function had a random 
number inserted in the brackets, which positioned the object on the line. Lines 225 to 
245 is one such occasion. 
Try this program:- 

10 CLS 

20 a = INTC(RND*14) +1 

30 PRINT TABCa) "Hello" 


40 FOR t =1 170500 : NEXTt 


5@ GOTO 10 


1 REM count 

10 at = CHR#(142)+CHRE(1423) : b# = CHRE(143)+CHRE ¢ 
143) +CHR# (142) +CHR# (143) 

Boerne i NK Oem teerEN ele cee SaNEY iho posite ce 2 


NE 2,0 
ZO BORDER © : PAPER 2 : FEN © : CLS 
25 FOR r = © TO 27 : LOCATE 7+r,3 2: PRINT CHR# (207 


ese) Sale eee tate tase. ae evel he ete vets ent Te ee te 

200 FEN 2s LOCATE We,6 > PRINT “ES >O) US IN she 

42 LOCATE 3,16 : PRINT “You must count the objects 
on-the" : FRINT "screen, pressing ENTER after you 
ro onumber" 
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45 FOR t = 1 TO@S90Ors, NEXT 

a0 a INT (RND#5) +1 

60 b INT (RND#¥4) +1 

7O ON b GOTO 100,200, 200,400 

LOOUREN OF 2 INKY O.2or ss GPEN tes ENi = ore Nek 
NE25)26) 7 eR EM Senn Al NE ge et: 

110 BORDER © : FAFER © : PEN INT (RND*¥2)+1 

AlN a EAS 

120 FOR clSeieiO) a 

125 d = INT (RND*¥28) +3 

127 FRINT 

120 PRINT TAB (d)3a* 

122 PRINT TABR(d-1);bs 

124 PRINT TAB(d-3) sCHR# (212) ;b#;b#; CHR (143) CHRE (2 
=) 

1335 “GOSUBRSS20 

Lome ae 

150 GOTO 500 

20O2FENDO waseINE GO. Or SRP ENV Ts cia ME dig Aig See EN ae astee lM 


Ke 2ye4.:) PENAS 5 pi NES, ea 

210 BORDER 0 PAPER © : FEN INT (RND#¥3)+1 

lee ma ee 

220 FOR c = 1TQ0a 

225 d = INT(RND*¥34)+2 

230 PRINT TAB(d) s CHR# (214) CHR# (215) 

235 PRINT TAB(d) sa# 

240 PRINT TABR(d) sat 

245 PRINT TAB(d—-1) 3 CHR# (214) 3 a#3 CHR# (215) 

247 GOSUB 590 

2S On NE note G 

280 GOTO 500 

OC eNO ere ier cies 

Ege a eae ere Nor estan Mineo. 

SlOn hORDERe Lon see Area @ 

She ees 

2a POR. c= eee 

S25 d = INT (RND*#24)+6 

3235 PRINT TAB(d) s CHR (214) CHR# (211) CHR# (32) CHRE(14 

3) CHR# (22) CHR# (209) 

337 PRINT TAR(d+1) 3; CHR# (211) CHR# (214) CHRS (145) CHRE 

(215) CHR# (209) 

239 PRINT TAB(d+1)3b#; CHR# (143) CHR# (215) 

S41 PRINT TAB(d+1)3;at3b#t 

ate FRINT Toute 1) 5b Re cise es 6253 "ERAS 22) CHR ¢ 
2) GHR# (138) CHR# (13 

344 GOSUB 390 

S45 NEXT c 

=o0 LOCATE Sl, S132 SPRINT: “howe 

2595 PRINT “many” 

360 INFUT ans 


Eee Lee Neo ere sve Fes dM cee 
del 


PEN INT (RND#¥2) +1 


66 


Bas 
400 
fesgea 
410 
412 
420 
425 
420 
435 
440 
445 
ost 
447 
450 
500 


a10 
a2 
a0 
aa 
Daa 


OSUB 
360 
380 
90 
RETU 


GOTO 5io 

GEN Ost Ne sO. Oo PEN sa TUN Wd 2 PEN—2!s IN 
ee Pe a NGS oe, oe 

BORDER © ;: FAFER © : PEN INT(RND*¥2)+1 

ees 

BORG =a 1b) 

d = INT (RND*22)4+1 

FRINT 

PRINT TAB(d) s;CHR# (214) sb# 

PRINT TAB(d);at3sbt; CHR#(142) 

PRINT TAB (d+1) ; CHR# (207) CHRE (22) CHRE (323) CHR (3 
R= (207) 

GOSUB S90 

NEXT c 

EERE 1O, 25 2 PRINT how many us = INE ans 


IF ans = a THEN S50 

RE SU Ree ae »e.answer is "sa 

ROoRS En eel 2000) sues EE pe GOTH. 20 

FOR po= On TOsSss STEP =a 

Pan vob (itp se aood ss SOUND 1 s0s4.20,6 276 
380 

NEXT pat. GOTO, 30 

POR Ste de TOUin2o0 a5 yNEXd eb 
SOUND 1,26,20,7.: FOR t-= 

RN 


: RETURN 
LieM@: 2 On, (MEX est cos 
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DATES - 
GENERAL 
HISTORICAL 
KNOWLEDGE 


PARENTS- this is a program to test the important dates in history since the Birth of 
Christ. 


CHILDREN- do you know when the Romans conquered Britain or the year Prince 
Harry was born? Well, now is your chance to brush up on your knowledge of the 
important dates in history! Seven dates will appear in a circle, one of these being the 
answer to the historical question appearing at the top of your screen. You must find this 
date before you proceed to the next question. 


Your screen will look like this:- 


Telephone invented by Bell 
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The program will allow twenty correct answers but you may stop it at any time by 
pressing the red [ESCAPE] key. 


TYPING TIPS 


Make sure that in line 120 the two PRINT statements with spaces have 6 and 5 spaces 
respectively. If you find extra long spaces between the DATA words, do not alter these 
as words may become split on the screen. This is due to the length of the line. Type these 
statements as you see them. 


PROGRAMMING HINT - INPUT ans or INPUT ans$ 


The INPUT statement allows you to enter information through the keyboard, which will 
then be stored in your computer’s memory. Hence line 110 in this program, when 
executed, will wait for an INPUT, which happens to be the date of the historical 
statement. With the INPUT is a letter(s) which is used as a variable to store the 
information the computer receives. If words are being stored, a string variable (ans$) is 
needed, whereas if numbers are being stored, a string variable is not needed (ans). 


Try this program:- 
10 PRINT "What is your name?" 
20 INPUT name$ 
3@ PRINT "How old are you?" 
40 INPUT age 


Can you see the difference? 


1 REM dates 

Les DieM ekoG7 9 tee DniMe cl 79) 

15 wt = CHR# (32) +CHR# (32) +CHR#E (32) +CHR# (32) +CHRE (3 
=) 

Tope laste cease Aimee se eben Oe So RM lad ce 
INE 1,7 : LOCATE 6,8 + PRINT "TEST YOUR ENOWLEDGE 
OF THE" = LGCATE+S,11 .: PRINT -“MORE COMMON DATES. I 
N HISTORY" +: LOCATE 7,14 : PRINT "TWENTY CORRECT T 
Der INT SE 


17 GOSUER S00-—~ GUSUB SLO. FORSt.= 1 TOs2000_: (NEX 
eet 

20 FOR a = © TO 79 : READ eF(ad) : NEXT a 

20 FOR b = © TO 79 : READ d(b) =: NEXT b 

SOm tl Smee HOR DER ser oseame ie Gems at Niky OOS asain oloss) a bls 
Pligtoi eNO os, INE 2a or eN woes INK 25 Oe Cort 
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ect = 0 

62 GOSUB 200 

65 c = INT(RND¥79) : m = INT(RND*¥79) : g = INT CRND 
*¥79) : h = INTOCRND#79) +: j = INT(RND*¥79) : k = INT 
(RND*¥79) : 1 = INTSRND*79) : n = INT (RND#79) 
7FOMLOCATEY 15 so cPEN Ese Ni ese) 

80 p = INT(RND*7)+1 

85 ON: p GOSUB 846,87,88,89,70,591,92 2 GOTO<100 


86 m = c : RETURN 
87 gg =sc 2 RETURN 
88 h = c : RETURN 
89 j ="e rs IREGURN 
99 k = c : RETURN 
o1 = c : RETURN 
92 nee! ctes RETURN 


100 GOSUB 150 
11:0; L-DEATEa3. 20): 2 SFEN st... >sINERUT ans 

115 IF vans «<> dtc) THEN 250 

T2O- PEN 1 os SPRINT “Great 3 GOSUBIS1O Se rOR ta 


hoes0OO) sa NEXT (es LOCATE“, 2OCse ERIN a 
LOCATE. tele ER ENiie [? -OUSve Sloe ROE AWE 
Cee RENT <SiR LNG (Gi ss) 

1S Correct “=correcth + Pes iF carrect. = «20 Chie 
40 ELSE 65 


L405 CESS s VBORDERRT Os FARRER Ob Shik. O77 108s. EEN mia: 
INK<1,6-: EDEATE 2,403 “PRINT. 320 dates cormect: 
145 LOCATE 2,10 : FRINT "Do you want another 207 ( 
ysor nol s: LOCATE S, 12. 2 INFUT Fines Le Qhins ese ay 

+ GOTOP6O (EESESERING- “Bye™ os END 

1SOVFEN St E@CATE 16, 7% 2 -ERINI dtm? Bere pareeet aS 
SPRINT dg) 2: EOBEATE 14,11 = (PRINTED Dthyece eee an 

B20 7 25 SERINT A diy) ss EGGATE. 1714 ss PREM Ce) 
160 EOEATE: Toy = 2) PRINT dle) BORAT Ee 2OntS Ps RR 

NT d(n) : RETURN 

170 EGCATE 16,7624 F RINT wes EOGAT Eee? ose uNils 

wt s-EGCAIE- 1471102 = PRIN ews =) OCA Ee cor da Er 

NG owes JEOCAT Rat 71 4 een Mile Was oo 6 Cle ene get as ele oe 

PRINT w# : LOCATE 20,19 : FRINT wt : RETURN 

2000 RGR: $7 =5 1) fOee60O.s DEGrE ELOT SeOe eon tase: Rice 
S2O0FlLZoOeEOSih) , 20G7 Recs oS TNC cers | Mex Nese e Rea CEN 

200 (FEN S)' SCAB 1.24 seERLN “Soriny ss uinvaoea0 mas 
s GOSUB 7500 Saas O Rt lem Cl ae) ns an Ni iexGlieante 

260 LOCATE 1,24 : FPRINT wtswts ws wt 

Z2O0-EOCANE Wye se PRN ae epee Oi Octet) 

S00 FOR s*="Po@-S 82 SGUND 1, tore 20,67: SOUNDS ae 

dogo, toe NEAR So SRE TURN 

210 ROR -ss.= 1-90, 3: SOUND Ete 7 ooo. SS SEUND Ss tas 

3,590,4 : NEXT ss : RETURN 

210 DATA Roman conquest of Britain,Vesuvius erupts 
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destroying Fompeii,Building of Hadrians Wall ,Roma 
ns leave Britain,Magna Carta sealed by Eing John 
o20 DATA First English Farliament,The Black Death 
sweeps through Eurape,The first printing press in 
England,Columbus discovers America,Magellan embark 
© around the world 
220 DATA Dissolution of the monasteries,Drake emba 
rks on world voyage,Drake defeats the Spanish Arma 
da,Guy Fawkes tries to blow up Farliament,Great Pl 
ague of London,Great Fire of London 
340 BATA England and Scotland unite,Start of Indus 
trial Revolution,Captain Cook discovers New South 
Wales, American War of Independance,Beginning of t 
he French Revolution 
so0 DATA Napoleonic Wars begin,Napoleon becomes Em 
peror of France,Battle of Trafalgar,Battle of Wate 
rloo,Abolition of slavery,Fenny Fost introduced in 
Britain,Crimean War begins,Indian Mutiny,American 
Civil War 
560 DATA Slavery abolished in USA,Suez Canal opene 
d,Boer War,Wright Brothers successful air flight,F 
Bary reaches the North Pole,Amundsen reaches South 
Fole 
270 DATA Sinking of the Titanic,World War 1 begins 
»sEnd of World War 1,General Strike in Britain,Worl 
d War 2 begins,Dunkirk evacuated,Battle of Britain 
sEnd of World War 2 
380 DATA United Nations formed,Mount Everest conqu 
ered,Russia launches first space satellite,First p 
ictures of the far side of Moon,First space flight 
by Yuri Gagarin 
590 DATA Assassination of Fresident Fennedy,Winsto 
n Churchill dies,First Moon landing by Neil Armstr 
ong, 
600 DATA American space shuttle launched,Birth of 
Queen Victoria.Reign of Queen Victoria,Birth or Ou 
een Elizabeth 2nd,Coronation of Queen Elizabeth 2n 
d 
4605 DATA Discovery of the jet engine by Whittle,Di 
scovery of gas lighting by Murdock 
610 DATA Discovery of the gramophone by Edison,Hov 
ercraft invented by Cockerell,Steam locomotive inv 
ented by Trevithick,Motor car invented by Carl Ben 
620 DATA Nylon invented by Carothers,Farachute inv 
ented by Blanchard,Fenicillin discovered by Flemin 
g,Radar invented by Watson-Watt,Radium discovered 
by the Curies 
620 DATA Davy safety lamp for miners invented,Tele 
phone invented by Bell,Television invented by Bair 
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d,First typewriter,Invention of vacination,Inventi 
on of the wireless by Marconi 

640 DATA X-rays discovered by Roentgen,Argentina i 
nvades the Falkland Islands,IRA attempts to blow wu 
p British Cabinet,Frince William 2nd heir to the t 
hrone born 

650 DATA Prince Henry (Harry) heir ta the throne ob 
orn 

635 DATA First woman Frime Minister in Britain 

660 DATA 43,79,122,407,12315,12316,1748,1476,1492,15 
UE ed SP ity ch 7 Piglet ge ey hess, leaner gl cca Carwiel 707 om, 1 ied Orgel ee Oren lae 
1s 

670 DATA 1789,1796,1804,1805,1815,1832,1840,1954,1 
Bais LOW sl oer gO 7 LOO wth enel Ul some ratrel meme kiy netesme 
PUB TIS6s oS oe S408 1P405 19455 1945, 1 Sess a7 

650 DATATITSS, A9GT. 1962, 965,, 1965. IORI elo, Lea7, Ll 
SPADE ely ae Cig ed ining LE) yl yr a qe iey 7 gl 7 helt HO Sore ml cream, elon iL 
if alg aE yee tl 

STO Daa tere. She play G, 19S. Soe. dey Gr lie seis cs a amt 
962 ,1984,1982,1984,1977 
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VISUAL 
ADDITION AND 
SUBTRACTION 


VIS-SUB  VIS-ADD 


PARENTS:- here are two programs to help the young child practice simple addition 
and subtraction by visually showing the numbers to add or subtract. The screen pictures 


will look like this:- 








13 


After the answer has been typed in the SNMMSia] key must be pressed. Appropriate 
music is then played and if the answer is incorrect the correct one is given. 


As the children who are using these programs will be very young, they will need a lot of 
encouragement, help and guidance at first, wilst they gain confidence in their ability. 
They should, however, be encouraged to work independently as soon as possible. 


CHILDREN - look carefully at the television. Here are some sums for you to try. 
How many can you get right? 


PROGRAMMING HINT - PLOT DRAW 


These two commands have been extensively used throughout this book. PLOT . 
followed by the x and y coordinate will plot a pixel at that point. DRAW followed by 
the x and y coordinate will draw a line on the screen from the position of the graphics 
cursor to the point stated. 


Line 100 in the program VIS-SUB draws a subtraction sign : - 

PLOT 270,280 moves and PLOTs a pixel at point 270 horizontally (x coordinate) 
and 280 vertically (y coordinate). The next command DRAW 330,280 then draws 
a line from the PLOT point to 330 horizontally (x coordinate) and 280 vertically (y 
coordinate). The diagram will help the explanation:- 


As you will see from the diagram in all MODE s there are 640 horizontal pixels and 400 
vertical pixels. The ORIGIN is the point with coordinates 0,0 and is at the bottom left 
hand corner of the screen. 








400 vertical 
coordinates 








—$$— _ 640 horizontal 
coordinates 
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Try this program:- 
10 DRAW 100,200 : DRAW 300,150 : DRAW O,0 
20 PLOT 400,200 : DRAW 550,350 : DRAW 600,100 : 
DRAW 400,200 


Can you see how the ORIGIN has affected your result? 


1 REM vis-sub 

15 at = CHR#(1423)+CHRE (142) 

SQePeNeO SNE Oy Oe sShENeieer INE A os SPEN 2 ses tNK 
ee eae IN cee SIN ek 

SOR ODEO ORDER Ors PAPER On ss CeG, tse Ne 

SO Giese le eee ass ORC meg ese Ric 

TipeeveeoUAlL ts LOE ATE Si sR UN Sun Rar Tran 

40 FOR t = 1 T0 1500 : NEXT t 

Su MODE Os: -HORDER--14 fs PAPER ass JPEN: Oss 

60 a=3: 6b = 3: c = INTORND*#5)4+1 3: d = 

Bel 

Oe ghee tee ae) 

72 ON c GOSUB 350,745,240, 225,220 

SOra = lS: boss 

90 ON d GOSUB 350,245,240, 225, 220 

100 PLOT 270,286,232 5 DRAW S20: 280,35 

ES) Se) rams eye sy i es CCT DD aed megs eee Oren) 
To) Ones 2 nO OO sexe t i NEXT. fF 

110 FEN 2 3 LOCATE 8,20 © <INFUT ans 

120 IP Ge-9d = ans THEN 150 

Pan BEN. 2 we One = 2 (Ol 20" St Shee == Orath eh <4 
ERINT 22NOle 2 NEXT hi 

tsG LOCATE “2a 2 FRINT “answer 2s. "sce-d = ROR it 
IT eeesO0== NET ts GORE Se 

CoO ReRe hes Jeskh On STEPS = sG0CAT Er hnes. Faeries 

GOOD" : GOSUB 400 : NEXT h 

160 FOR m = 1 TO 10 : BORDER INT (RND*¥27) : GOSUR 4 

OO : NEXT m 

1465 GOTO 36 

S30 LOCATE at4,6+8 : PRINT at : LOCATE at+4,b+9 : P 

RINT at : GOSUB 400 

Poo OG e eto os PRIN oat = MOAT ay bogs eee mons 
at ;: GOSUBR 400 

240 LOCATE at2,b+4 : FRINT até : LOCATE at2,b+5 : F 

RINT at : GOSUB 400 

345 LOCATE at+4,b6 : PRINT a¥ : LOCATE at4,b+1 : FRI 

NT at: GOSUER 400 


CLS 
INT (RND* 
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350 LOCATE a,b : PRINT at 3: LOCATE a,b+1 s PRINT .a 
# : GOSUB 400 : RETURN é 

400. SOUND 1,95, 205. 72s FOR: t Sot ab Be 20Ges INEXAT te = 
RETURN 


1 REM vis-add 

15 af€ = CHR# (143) +CHR# (142) 

2S07FEN Oct INK (G70, FOREN 1 = INE) 1,46 ¢ «PEN 2s PNR 
OE AI HWS ir sain ss Tee aio, 

SO. MODE) O 2: sRORDER (00: JPARERLO G2 sCES serene 

SS LOCATE.6,522 ERIND 'S 1M FE EY. = EOGATESSASe: 
PRINT, "Vel .S UAL” § LOCATE 4) Jets SPRINT 2AmD Dp. 
Tastee aN 

405RORS t=" 2. OR LaCOm NE ns it 

50 MODE_©. :> BORDER 94 0s) PAPER] = PENS OREIELS 

60 a= 3: b= 3 +: c = INT (CRND*S) +1 

70 ON c GOSUB 350,745,240, 235, 230 

BO a =13 : b= 2: d = INT(RND*S) +1 

90 ON d GOSUB 250,745,240, 225,230 

100 PLOT 300,256,535 : DRAW 3005204 s> PEOT 270,280: 5 
DRAW 230,280 

LOSSEOR te =o77 OMe SEF RSS ee SOUND Ie AO Oe tae Orie 
some: GRORe m=O Pe Onesie Ne xale ae sient 

110 PEN 2 : LOCATE 8,20 : INPUT ans 

120 IF c + d = ans THEN 150 

LS5oPEN 3S °% FOR Ch, = 8h Gace] Sterrs hOGA Evin 2-yes 
PRINT ONG 22 NE Xan ti 

130 COEATE 1,257 : RRINT “answer. 16 sictdt = ORS 
1 FO. 2500 FINE XG tee OOo 50 

150" BOR ch -Sel elo eOr oer = srs. (GA eeniigeetie sein Mas ee 

GOO0D™ } GOSUBY 400" 3 NEXT th 

160 FOR m = i TO 10 : BORDER INT(RND*¥27) : GOSUB 4 

OO : NEXT m 

165 GOTO 50 

330 LOCATE a+4 b+8 2 PRINT tak r LOCATE at+4),b+9% s2e 

RINT at : GOSUB 400 

3309 LOCATE a,b+8 =: PRINT a? 2: LOCATE a,b+9 :- PRINT 
até : GOSUB 400 

240 LOCATE at2,b+4 =: PRINT a#® : LOCATE a+2,b+5 3. F 

RINT a¥ : GOSUB 400 

“45 LOCATE at4,b : PRINT a® : LOCATE at4,b+1 : PRI 

NT at: GOSUR 400 

200° LOCATE a,b 2 PRINT at = LOCATE alb+ leh Nios 

¢ : GOSUB 400 : RETURN 

400 SOUND TSS ,20,7 2 FORSt =" 1 1G 200 Ne tae 

RETURN 
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DONKEY RACING 
AT THE STRAD 
STADIUM 


a game for two players 


PARENTS- this is a donkey racing game which practices the addition of three 
numbers and the use of brackets in mathematical statements, all within the four rules of 
number. The ten type of statements are:- 

XG Saas, 

Lin ate 

(M * N) + X 

(M+ N)+ X 

(M * N) - X 

(MEN) = CX Y) 

Z -(M * N) 

(X + Y)(Z + M) 

Ge (Neri Z) 

(X+ Y)-Z 
CHILDREN- how good are you at racing donkeys over the fences?! Now’s your 
chance totry in this exciting game at the Strad Stadium. At the beginning of the program 
you will be asked for your names and then a dice is thrown to see who goes first. You 
move your donkey along the race course by answering the mathematical equation. You 
must press [SNMMSiad after each answer. If you are correct your donkey moves along the 


course. Good luck, safe racing and may the best donkey win!! As you move along the 
course your screen will look like this:- 


ed 





Tony your turn 
47-35+23 hr 





PROGRAMMING HINT - ON....GOSUB ON....GOTO 


Look at lines 180 and 190 and you will see the ON... . GOSUB command. Line 180 
picks a random number between | an 10 and assigns it to variable ‘a’. 


ON a GOSUB 200,250,300,350,400,450,500,550,600,650 

means that if a= 1 then the first line number in the list is chosen, in this case 200 so the 
command is GO SUB 200. Ifa= 2 then the second line number in the list is chosen and 
the command in this case becomes GOSUB 250. As this is a GOSUB statement the 
program will return to the next command which is line 195. The same principle applies 
for the ON. . ..GOTO command, only this time the program branching does not return 
to the next statement as it is a GOTO command. 


1 REM donkey 

10 2# = CHR#(143)+CHR#€143) : yt = CHR#(32)+CHRE(Z 

2) +CHR# (32) +CHR# (22) +CHR# (32) +CHRE(ZE)+CHRE(EP) + 

x = CHR# (32) +CHR# (SE) 

40.PEN O.3 INK 0,19. 5.PEN 1. 5 INKei5O 2: PEN. Zoe: an 

ieatiyecrel eaten EM cone sie IN Reser 

30 WINDOW #1,1,40,1,25 

do WINDOW #2,1,40,11,14 

65 PAPER #1,1 2 PAPER #2, 1 

A CES Th oc Sats 

72 LOCATE aly 7 So FEN SS OF OP RINT he Oe Nok ee 

Y. FRGea le Le Ras ee LOCATE #1 ,14 759 -PRINT “een -F 
etc eae 

74 LOCATE #1,7,7 : PRINT #1; "S@ Rone a IP AD? 
UM" : J = 20 : KF = 13 : GOSUB 900 
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fe POR GY"= "1° TO SO. SOUND £,S79y10,6° 5 FOR t-= 1 
TO 200 : NEXT t : BORDER INT (RND#*237) -: "NEXT bv 
BONGES #i! = CLS #2 

BS GOSUB 950 

90 cone = 0 : ctwo = 0 

23 CLS #1: GOSUB 800 

TOO SEE tess 2THEN SSCrne 1 20. 

PLOS Eat A.-s THEN GOTO 140 

120 CLS #2. : PEN #2,3 : PRINT #2,nameone#;", your 
Beh wes OBER cites BEOSWEY Veo 

125 LOCATE #2,5,3 : INFUT #2,ans 

130 IF ans = sna THEN cone = cone + 1 : GOSUB 700 
132 IF ans “<> sna THEN GOSUB 1100 

125 IF cone = 8 GOTO 789 

140 CLS #2 :FPEN #2,3 : FRINT #23,nametwo#t;", your t 
Wen. o. LOCATE HS, S,< :- GUSUB-180 

145 LOCATE #2,5,3 : INFUT #2,ans 

150 IF ans = sna THEN ctwo = ctwo + 1 : GOSUB 750 
152 IF ans => sna THEN GOSUB 11006 

Toole Clwo.= 8 GONG 780 

160 GOTO 120 

186 a = INT (RND#10)41 

190 ON a GOSUB 200,250, 300,250, 400,450,500,550,600 
7600 

195 RETURN 

200 ~ = INTCRND#¥50) : y = INT(RND*¥50) : z INT (RN 
D¥50) 

a0 Teese ry es oe a THEN S200 

2OoUPRINL Areata yet Mae 

NO Bona Ke tay OS 

215 RETURN 

250 ~« = INTCRND#50) : y = INTC(CRND#50) : 
D#¥50) 

ie Le eye ligne ao) 

254. Le ¥iohes eS tdeEN ea 

se nN em ence ee caesar es) cot tome Calais 

265 sna = Z- y + kK 

270 RETURN 

ZOO m = INTCRND#®10) +: nm = INTC(RND*¥10) 3: x INT (RN 
D¥50) 

Boo PRIN Pee Aarsmia foe se leet sx 

210 sna = (m*n) +x 

315 RETURN 

S50 m = INTCRND#10)4+1 2: nm = INTCRND*#10)+1 = wy = m 
eno: x = INT CRND*50) 

255 PRINT #2," ("swvsCHR#(37)53n3") + 

260 sna = (wv/n) +x 

270 RETURN 

400 m = INT(RND*10) 2: n = INTCRND#10) : x = INT CRN 

D¥30) 


" 


INT (RN 


fd 


a 


19 


4OS 
410 
415 


IF m*n 
FRINT 
sna = 
420 RETURN 
450 m IN 
RND#¥1O0)4+1 
FRINT 
aoe TT 
ena 


a 
* 
4&0 
465 RETURN 
S00 m IN 
T (RND*¥100) 
SOo De mn 
SLs ERE Mi 
20 sna 
Seo RETURN 
Sei iiaesse IN 
T CRND¥10)+ 
Dose civil 
360 sna = 
S65 RETURN 
600 x IN 
D¥20) 
Clee es 
605 FRINT 
610 sna 
615 RETURN 
650 x = IN 
D¥50) 
Orie 
Gao tf euNir 
660 sna 
665 RETURN 
7 One rate 
ioe cede Chin 
10 k 
704 IF con 
d 14 : e 
7 OGn LReOCecon 
3 cues 


Soak 
708 SE con 
d 24 : e 
Yio TE con 
3 ZO 


k 
Cie Lice 
d 74s: 


: e 
714 IF con 
rates uckesebuestil 


718 SOUND 
720 RETURN 


i 
oJ 
on 


2 


x+y < 


x THEN 400 


Hace cae enn * isin shee? waa ae 

ingen eas 

TCRND*5) +1 : n = INT(RND*#5)4+1 2: «x = INT 
: y = INT(RND#¥10)+1 

HS Cento ales * Ue eign) ele) oat fig) See Gre es 
(m¥x#n*y) / xy) 

TCRND#10)4+1 2: nm = INTC(RND#10)+1 : 2 = IN 
eli rf eto 

#2,2;" = Gaara ites % Soe tae eo 

z—(m*n) 

TC(RND*¥10)+1 : y = INTCRND#¥10)+1 2: = = IN 
1: m = INT CRND#¥10) +1 

Beebe cect ae UT SeaP GMA aa ll ay Simin oe 
(x+y) #(z+m) 

TCRND#50) =: y = INTC(RND#20) : = = INT (CRN 
ytz THEN 600 

Taig en nant (ieee ee + BES ROW IN oy seas 

Peet ee) 

TCRND*¥50) : y = INT(CRND#¥50) : = = INTCRN 
Se thee oo® 

Fee Corgi ee Emuehyantanr) a areas 

My ss 

e = 1 THEN d = 4: 28 = 2 : GOSUB 850 

e = 2 THEN d = 4: e = 2 : GOSUB 880 : j 

= 1 : GOSUBR 900 

e.= 735 EHEN 3 = 1O_2. k= 1 GbsSueh Ssh ee 
= 3 : GOSUB 850 

e = 4 THEN d = 14 ;: e = 3% : GOSUB 880 : 
= 1 = SOStbar ao 

e = 3 THEN Jo] "20 30k =91° 2 sG0SUBSISO": 
=a eOSUbe ea 

e = 6 THEN d = 24 : @e = 3 : GOSUB 88O ;: 
=" 1>) “GOSUB Soe 

e) = ..7 THEN j= 30 (8 k= 1 eS GOSUb eo Oe 
SeSp e CM@oUr wes u 

e = & THEN*CES 42° 2° PRINT #253 PRINT He. 

ameone#;" is the winner 


1,2145,20,5 


80 


ee IF ctwo 
E/issh seed ee EU CO, 
j = 100) kSat 
724 IF ctwo 


1 THEN d 
2 THEN d 
os 


4 
4 


e 17>" GOSUB 856 
e 17 : GOSUB 880 : 
: GOSUB 900 


> THEN j = 10 : k = 15 : GOSUB 950 : 


d 14: @ = 17 : GOSUB na 

756 IF ctwo = 4 THEN d = 14 e@ = 17 : GOSUB 880 : 
eee el oe SG RSUB 200 

738 IF ctwo = 5S THEN j = 20 : &k = 15 : GOSUB 9230 ;: 
qd = 324 : e = 17 : GOSUB 850 

on IF ctwo = 6 THEN d = 34 : e = 17 : GOSUB 880 : 

= 30 : k.= 15: GOSUB 900 

aS TP -etwo = 97 TiHeNes)2=—2.0-ce-k, = LS. 4. GOSUB SSO 2 

d = 24. :_e =17 = GOSUB. 850 


764 IF ctwo = 8 THEN CLS #2 : PRINT #2 : FRINT #2, 
“ewe es  SMNametwots" is the winner 

CoS SOUND i, SO asOl, cp 

770 RETURN 

730 FOR  abteet TO) 2o.e2 SOUND 1 106.20.,.6.3 (FOR te= 
(PaiGe 230s Nex is  RORDER INT CRNDee7)) os. NES vats -s 
END 

BOQ FOR b = © =T0-39 - FEN 44,0 2 LOCATE #15146, 6.0 
: FPRINT #1,CHR#(142) : LOCATE #1,1+b,24 : FRINT #1 
yCHR#E(143) : NEXT b 

SOoe PON = ho oO Slee Oo = FoR c= 6-71 - ca: LOE 
ATE #1,10+b,7+c : PRINT #1,CHR#(142) : LOCATE #1,1 
Orbeacite & PRINT #1 ICHRS Gras NEXT) ca INEXTeb 
810 LOCATE #1,40,6 : FRINT #1,CHR#(143) : LOCATE # 
1,40,20 : PRINT #1,CHR#(142) : PEN #1,3 : LOCATE # 
Peace @ PRIN #L,.cCHRE( 70) 3 LOCATE Hi yao, io ase eRt 
NT #1,CHR#(70) 

815 RETURN 

850 LOCATE #1,d,e : PRINT #1,CHR#(143) : LOCATE #i 
.d-1,e+1 : PRINT #1,CHR# (214) CHR# (143) CHR (205) CHR 
#(215) 

Sao LOCATE ota , dal ete ancEeRENT, fe SESS Loot 
Veet cou h | as LOCATE #1l,d-S.ers = PRIM HL Goan aicd 
34) CHRE (140) 22; CHRE (140) CHRS (131) CHRE (129) 

860 LOCATE #1,d-3,e+4 : PRINT #1,CHR# (128) CHR? (209 
>}32#;CHR#(142) : LOCATE #1,d- cape : FRINT #1,CHR# 
(138) CHR (209) CHRE (205) CHRE (32) CHRE (209) CHRE (205) 
865 LOCATE #1,d-2,e+6 : PRINT #1,CHR# (209) CHR# (209 
) CHR# (32) CHR# (209) CHR#E (209) 

870 RETURN 

880 FOR g = 0 TO 6 : LOCATE #1,d-3,e+g : PRINT #1, 
ye 2 NEXT 2g) -RETURN 

900 LOCATE #1,3,k : PRINT #1,CHR#(142) : LOCATE #1 
yi-1,k+1 : PRINT #1,CHR# (214) CHR# (142) CHR# (205) CHR 
2121S) 

905. LOCATE #1,j-1,k+2 2 PRINT -#1,22;CHRS (32) CHRS (1 
AZ) CHR#E(125) 2: LOCATE #1,j-2,k+3 : PRINT #1,CHR#(1 
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54) CHR# (154) 2%; CHR (140) CHR# (131) CHRE(129) 
910 LOCATE #1,j-1,k+4 : PRINT #1,2%;CHR#(143) : LO 
EATE #1, J-2,kta 2. PRINT #1, CHR# (204) CHR# (204) CHR ¢ 
32) CHR# (205) CHR# (205) 
915 LOCATE #1,j-3,k+6 : PRINT #1,CHR# (204) CHR# (204 
}- 2 LOCATE #1, 542,k+6.2° PRINT #1, CHR# (205) CHR# (205 
) 
920 RETURN 
930 FOR g = 0 TO 5 : LOCATE #1,j-3,k+qg : PRINT #1, 
y# : NEXT g : LOCATE #1,j-3,k+6 : PRINT #1,x# : LO 
CATE #1,j+2,k+6 : PRINT #1,x# : RETURN 
940 FOR. t = “ft TO" 2500" =" NEXT “t} =: RETURD 
950 CLS #1 : PEN #1,2 : PRINT #1,"Let’s see who go 
es first" : PRINT #1,"What is your name" : INFUT # 
1,nameone? 
955 PRINT #1 : FRINT #1,"What is your name" : INFU 
T #1 ,nametwot : PRINT #1 : PRINT #1,"Now roll a di 
ce to see who goes first" : FOR t = 1 TO 3000 : NE 
Kak t 
960 CLS #1 : PRINT #1,nameone#3;" you roll first" : 
PRINT #1 : PRINT #1,"Hit any key to roll” 
965 at= INEEYS. 2) herat = “SS StHEN so 6s 
970 +r = INTCRND*7) =: GOSUR 1000 =: PRINT #1, :- GOs 
UR 940 
75 CLS #1 : PRINT #1,nametwot;",your turn" : PRIN 
T #1 3: PRINT #1,"Hit any KEY TO roll" 
9380 af = INFEY? : IF a¥ = "" THEN 980 
985 5s = INT(RND*7) : PEN #1,5 2 GOSUB 1000 : PRINT 
#1,5 : GOSUB 940 
990 CLS #1 : FRINT #1,nameone#;", your score was " 
sto: PRINT #1 : PRINT #1,nametwo#;", your score wa 
Sus Ss 
992 IF r = 5s THEN FRINT #1,"scores equal, roll aga 
Tf as) VESUE O40 7 = Ean On Gow 
993 IF r * s THEN FRINT #1,nameone#;", you won and 
use the top horse" 
994 IF r «< s THEN PRINT #1,nametwof;", you won and 
use the bottom horse" 
995 FRINT #1,"the winner goes first" : FOR t = 1T 
© S000 2) NET Gs Re cURN 
1006) PORVG = ..0°TO S67 SEP iS: LOCATE #iy4 tu seo 
RINT F1,CHRS (214) CHRSC213) = ESCATE Shi sete he os GER 
INT #1, CHR# (214) CHR#(142) CHR# (143) CHR# (215) 
1005 LOCATE #1,2+u,11 : PRINT #1,CHR#(214);2#;2#5C 
HRS Cais). 3 LOCATE Fl stu be PS BRIN eee Gris G eels ee 
$324 s CHR) 
1010 LOCATE #1,3+u,13 : PRINT #1,CHR#(213) CHRE(143 
CHR? (142) CHR# (212) 3: LOCATE #1,4+u,14 : FRINT #1, 
CHRE( STS SCHR Ce Lay ee ROR Sab =ta le OSG ae NE x tes 
1O1S ELS FL) es oF OR = "O27TO 4s SOR hho S1Gh4a sa 
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> PRINT #1,CHR#(145) =: NEXT fh 
= 1 TOs250k taNExX Tet 


OCATE #1,9+h+u,10+hh 
he Nexen. = eOR> & 
O20. TPSaR=e26" THEN LOS0 
Poss Ces ai :) Next u 

1OS0 PEN #1,0 : LOCATE #1,24,12 
1100 PRINT #2,"no, answer is " 


: RETURN 
ETURN 


;=na : GOSUBR 940 : R 
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SMUGGLERS 


PARENTS AND CHILDREN: I hope you will enjoy playing this simulation game 
and at the same time, whilst trying to discover the whereabouts of hidden contraband, 
learn a little about a smuggler’s life. 


MAKE A BOOKLET 


There are two smuggler’s sheets which you can copy to help you play the game. The 
large grid has all the various locations included, whilst the five smaller grids can be used 
to play the game against a friend, your mum or dad, or your teacher, perhaps. Try 
making a four-page booklet out of these instruction notes. In your booklet enter the 
historical facts, the rules and the grid showing the bays and inlets. Copy the page with 
five grids- keep these as you use them so that you can look back on your games. Add 
your own designs and illustrations to the booklet- find out more about smugglers and 
their ways. You may, of course, prefer to draw a permanent grid on cardboard, and 
mark the bays and inlets on this, and then use the counters for your positions, but 
remember to keep an account of your loot. 
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SETTING THE SCENE 


During the late 18th and early 19th Century, Britain was expanding her Empire 
throughout the world. She was also involved in various wars in Europe and America. In 
order to raise money for all these activities, high taxes were imposed on goods being 
brought into the country. As a result, smuggling became widespread along the coasts of 
Britain and for many people living in towns and villages on the coast, it was a full time 
occupation. Smuggling was an accepted way of life and it was often carried out in broad 
daylight. A customs and excise service was set up to try to catch the smugglers and 
customs officers patrolled the coastline, but there were never enough of them to guard 
all the shores known to the smugglers. Fortunes could be made by the skippers of boats 
who landed the goods illegally, thus avoiding the excise duties. Smuggling gangs of up 
to 100 men were commonplace and were highly organised. They knew the creeks, 
inlets, caves and even open beaches where it was safe to land contraband. Boats had 
false bottoms which concealed the illicit goods; barrels of spirits were weighted so that 
they floated just below the surface of the water. They were then towed into harbour and 
collected later. There were many other smuggling tricks and devices which were used to 
thwart the customs officers. The few hauls that the customs officers did make were sold 
off by public auction and the proceeds paid over to the Government. 


INSTRUCTIONS FOR THE GAME 


Your task is to find the smuggled goods by using co-ordinates on the grid. Eleven 
coastguards patrol the beaches and coves, and they may catch you at any time. 
Punishment is prison. Other surprises await you, too. Your loot, if found, will vary, but 
it will always have a value- a value appropriate to those of smuggling times. You will be 
given clues on the screen as to the whereabouts of the loot. Your direction instructions 
are based on the four main compass points. 


Between North Between North 
and West and East 





Between West Between East 
and South and South 


You must go directly N, S, E or W, or between these four points, on a grid measuring 1 1 
squares by 11 squares. Your co-ordinates are “‘X”’ for the horizontal axis and “Y” for 
the vertical axis. 
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For instance, your co-ordinate point (8,5) is 8 along the ““X”’ axis and 5 along the “Y”’ 
axis. 


= 


ei 
aa 
seg 
ed 
ae 
= 
ies 
| 
ee 
i 
3 





Ae ls |S 
ae ae iG, 


Remember to press the [NMMals} key after each co-ordinate. For example:- 
RENTER 
5 TaNaasi 


As you input your co-ordinates, mark these on your grid and then move in the given 
direction. 


You should be able to find the treasure in under six moves, unless the coastguard 
catches you! Even as you discover your loot, you may get caught! 


In each game, your smuggled goods will be in a different position on your map. Loot can 
be hidden either on the land or in the sea. 


Play five games of SMUGGLERS each and then total up the value of your loot to find 
the winner. 


PROGRAMMING HINT - SUBROUTINES 


When planning a program, there will be occasions when you wish to repeat sections. 
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The repetition of sections is long and tedious and there is always a chance of making 
typing errors. Hence a technique has been developed where repetition is unnecessary. 
This technique will produce a SUBROUTINE- a branch in your program that can be 
executed and then RETURNed to the next instruction prior to your SUBROUTINE. 


In line 60 you will find the statement GOSUB 1000 . When the program reaches this 


instruction, it goes to line 1000, carries out the instruction (in this case, prints the ship 
on the screen) and then RETURNS to the next instruction which is at line 65. 


60 GOSUB 1000 





65 


SUBROUTINE 


1040 RETURN 
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1 REM smugglers 

10 be = CHRE(32)+CHR#(S2) 1: c# = CHR#(143)+CHR# (14 

3) +CHR# (145) +CHR#(145) : d# = CHR#(142)+CHR#(143)+ 
CHR# (142) 

12 cat = " Move " 

20 PEN 0c: . INE (O,.0e RENG 1a: SINE. 6a cope hhecprsa ati 
Seah epee Meese ts Leese 

3O. WINDOW #1,1,40,1,25 2: WINDOW #2,12,27,1,12.: Wi 

NDOW #2,2,29,17,24 

5O BORDER © + SPARPERD #170 7 eCEs tt 

60 GOSUB 1000 

65 (PARER: Houe es (EL Seda fc NM esi kal iitean Het 7 fy te 
2 PRINT 45 0°S 2" 6 UUs 36) SES Ee RSS. erate OATES atts 
,ovo 2 FPRIND HES TRY TOSHEAT THE, CEASTGHARD” sar. 
NT #3 : PRINT #3,TAB(14);"ADJIN 1984" 

79 GOSUBR 900 

100 m = INT(RND#¥11)+1 2: nm = INT CRND*¥11)+1 

IPSs ta 7 CO) 

PAO ES Eek rte oly See ett eee) peo itt Mere 


125 q = INT (RND*500) +500 
127 k = INT (RND#¥1000) +1000 
120 ce = INPURNDeti tt 

132 4 = INT (RND#11)4+1 

135 g = INT(RND*¥11)+1 

127 h = INT C(RND#11)+1 


150 PAFER #3,2 : CLS #3 : PEN #3,0 : LOCATE #3,4,2 
SD OPRING HS, Revo yotter post Racin on smm ROP Nite ethers: alte eic 

s ENTER after each coordinate 

160 COCATE 45,10, Se NEU Fa. x 

17OREOCATE ton tego os INPUR #on.y 

180 PRINT #3 : FRINT #2," Your cordinates are";x;" 
+. a 

TOG tmeetao (lt CAND Sy tt HEN Sate 

BEL eta Lous otto meer 

194 IF 2a REN een 

19671 < 1 AND y < —-LTHEN 216 

EOS Pol oe ine Needs 

200 1F < DL onHeN ee2o 

205 GOTO 300 

210 PEN #2,1 : FRINT #3," Coordinates too large,tr 

y Wageainn = GOTOM2Sa 

22 PEM GS5-l0°s FRINT #2 ox 

2U4 PENS Hoe dss: oe Rel logy ce en SOc) 

216 FEN #3,1 : PRINT #2,"Coordinates too small,try 
again" : GOTO 255 

2U5- PENS He, ts PRINT Hones eu Oeste 

220" FENTHS,2 SPRINT Hes yee. Ghee 2a 

250 FRINT #3," Coordinate too large,try again" : G 

OiBe255 

205 PRINT #2," Coordinate too small,try again" 


ord 
S 


< 


se 
“s 


Neos 


7. GOVOe Lao 
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Soo 
300 


3402 


S18 


S20 


et) 


ZAQ 
200 
360 
270 
S80 
290 
400 
SOQ 
Ey! 
aoe 
303 
DO4 
310 
Sides 


20 


ans 
val 


S30 
S340 
S42 
S50 
S52 


560 
562 
S70 
S72 
592 
586 
587 
590 
S00 


ae Ta ed) 


150 


+ 
c 


g 


wo 


xe 
“ 


THEN 
THEN 


THEN 


THEN 


THEN 
|HEN 


THEN 
THEN 


THEN 


THEN 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


GOS 
GOS 


60S 


60S 


50SUR 


60S 


GOQSUB 
GOSUE 


GOSUEB 


GOSUB 


S00 
Bo) 
BL 
AS 
OS 
954 
oso 
9546 


a7 


UR 1500 
UB 1500 


UB 1500 


UB 1500 


1500 
UB 1lDUY 


1500 
1500 


1500 


1500 


GOTO i100 
GOTO 100 
GOTO i100 
GOTO 100 
GOTO 1006 
GOTU 100 
GOTO 100 
GOTO 100 
GOTO 100 
GOTO 106 


but what have you smuggled?" 


= 8 THEN 1600 
THEN 1606 
11 THEN 1600 
LO THEN, 1700 
10 THEN 1700 
11 THEN 1800 


8 


it Paes 


3 


18 


oo 


11 THEN 1900 


THEN 


& THEN 


ZOD 


20 


QO 
Oo 


= THEN 2100 
3 THEN 2100 


GOSUB 898 : GOTO 
IF x = CAND y = 
IF x = AND y = 
IF x = h AND y = 
IF x c AND y 
IF x =g AND y = 
IF x = g AND y = 
ES Ay c AND y = 
heey c AND y 
IF x = f AND y = 
IF x = f AND y = 
IF n = y AND m = 
IF m = x AND y += 
IF m = x AND y £ 
IF n = y AND x > 
IF n = y AND x & 
IF m x AND y > 
NS orn . AND n 
IF m AND n 
IF m = x AND n = 
FRINT #23,"Good, 
GOSUB 900 

IF m= 1 AND n 
IF m = 2 AND n = 
IF m = 2 AND n = 
IF m = 4 AND mn & 
IF m = 3 AND n> 
IF m = 7 AND nn = 
IF m = 8 AND n= 
IF m = 11 AND n 
IF m = 1 AND n = 
IF m == 2 AND n 
IF m = 1 AND n = 
IF m = 1 AND n = 
IF m = 3 AND n 
IF m = 4 AND n = 
IF m = 7 AND nn & 
IF m = 9 AND n = 
IF m = 11 AND n 
IF m = 10 AND n 
IF m = 10 AND n 
IF m = 11 AND on 
IF m = 7 AND n = 


ee 
= 


Woe 


2) THEN 


eye 
oe 


oo 


THEN 2200 
= THEN 2300 
THEN 2300 
4 AND n 


0 


THEN 
THEN 


24 
24 


2 THEN 2 


THEN 


260 
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<= 9 THEN 


Oo 
Qo 
500 
oO 


2400 


602 IF m = 8 AND n = 5 THEN 2600 

614 IF m == 4 AND m “= 7 AND n = 8 THEN 2700 
620 IF m = 4 AND n = 4 THEN 2800 

622 IF m = 4 AND n = S&S THEN 2800 

624 IF m = 5S AND n = &S THEN 2800 

626 IF m = S AND n = 6 THEN 2800 

628 IF m = 6 AND n = 6 THEN 2800 

630 CES #2: CLS: #202) CLS. Get se bbe = EN CRND#G cI 
625 IF bb = 1 THEN 3% = “RECTORY CELLARS" 
640 IF bb = 2 THEN j# = "CHURCH CRYPT" 

645 IF bb = 3 THEN j# = "QUARRIES" 

650 IF bb = 4 THEN j# = “CAVE IN THE CLIFFS" 
635 TF bh = 3 THEN 33) =" ROGRSIN THE CRUREHS 
660 IF bb = 6 THEN j# = "NEARBY BARN" 


665 gg = INT(RND*¥20) +1 
670 LOCATE #1,5,3 : FEN #1,3 : PRINT #1,"S AF E 
LAND IN 6" 

675 PRINT #1 : PRINT #1,q;"“litres of port worth #" 


:q¥*3/100 
680 PRINT #1 : PRINT #1," hidden in the "33% 
685 IF gg “= 6 THEN 1500 


650 .GOSUB. 700), SATO), 730 

7OO PAPER SHE; de 2 CLS HS) SO PENS Os (PRIN #oysn ER 
INT #3," Mark your loot by your map" 

705 PRINT #3 : FRINT #3 

710 PRINT #2," Hit any key to continue" 

712 at p= SENKEYS 3: GIR cat = [4 eN = 7s 

715 RETURN 

Zoo ebLo al “ss COS sta eb SUBLooOO : Els. +s PeORame 
#35,3,25 : FPRINT #3,"Do you want another go?" : LOC 
ATE #3,2,0 : INFUT #2,an# 

oo) TE LEP Te Cant, 10> = yaks THENELOO 

760 IF LEFT#(an#,1) = “yes" THEN 100 

765 LOCATE #2,2,7 : FRINT #2,"Cheerio,have another 
go later." 

770 END : 

S50 CLS #o 2 PAPER ta jae" PENT #25,0> sn bOEAnEt ae ae 

PRINT #2,"You’ve taken too long to smuggle" : F 

RINT #3 2: PRINT #23,"your loot ashore. 411 your laa 
t" : PRINT #3 : FRINT #3,"is lost. TRY AGAIN" 

855 _GUSUR (Soo Glinib) Ton 

890 FOR eo = 1OGCOsTEr 1OOFSTER S=20° : SOUND Jere; 7 
: NEXT e@ : RETURN 


B93 ROR f= 1) FOy eC On eran wigty tener CRY 
899. FOR t= 1. WO) 25000 NEX es Goines hao 
900 BOR zac=rly TOs) s]SGUND My4a78. 2007 GeESOUNDs 2. it 


Pe 20's 7 SP OR sey oly TT OBO see Eee tee cies Nixa Wee. seth ed 
RN 

Sao FRINT #23, eats (Soutine 
951 PRINT #2,ca#;3 "North" 


GOTO 899 
GOTO 899 
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932 PRINT #23,ca#; "West" : GOTO 899 

952 PRINT #23,ca¥#;"East" : GOTO 899 

954 FRINT #2,ca#; "South West" : GOTO 899 

9355 PRINT #2,ca#3;"North West" : GOTO 899 

9356 PRINT #3,ca#;"North East" : GOTO 899 

CSV tinh: F5,Gars OOUTh bast. 1S GOT 899 

Foo Gone -877 

1000 FEN #2,2 : PRINT #2, TAB(S) ; CHR# (140) CHR# (143) 
CHR# (205) : PRINT #2, TAB(S) ; CHR# (140) CHR# (140) CHRE 
(205) 

1005 PRINT #2, TAB(G) ; CHR# (143) CHR# (142) CHRS (32) CHR 
$(205) : PRINT #2, TAB(2) 3 CHR# (126) 3 b#;CHR#(1213CHR 
$(131)3b#3CHR#(205) 

1010 FRINT #2, TAB(S) ; CHR# (128) CHR# (141) CHR# (132) CH 
R# (209) CHR# (210) 5b*;3 CHR# (22) CHR# (205) 

1015 FRINT #2, 7TAB(3) 3; CHR (138) CHR# (143) CHR#(141)CH 
R# (209) CHR# (32) 3c#3 CHR# (215) 

1020 PRINT #2,TAB(S) 3; CHR# (142) CHR# (143) CHR# (143) CH 
R# (141) CHR# (32) CHR # (143) sc#3 CHR#E (215) 

1025 PRINT #2, TAB(2) s CHR# (136) CHR# (142) 3d#;CHR#(13 
6) CHR# (143) CHR# (142) 3c#3 CHRE (215) 

19020 PRINT #2,CHR# (1246) CHR# (142) 3c#;CHRE (138) sc#3d 
S2CHRS (S15) = "UOCKTE “Hee1, Os. PRINT #4, CHRE 12 C 
HR# (121) CHR# (139) sd#;3 CHR# (142) CHR# (140) CHRE (129) sb 
$3; CHR# (32) CHR# (210) CHR# (204) 

LOS5 (FEN 42,195 WOCATE #200, 114, PRINT #2, 673 cF eds 
rEHRS (212) : PRINT #2, CHRE (21S) sides dtcds* CHREVET 2) 


1040 RETURN 

1200 PRINT #3 : PRINT #2," Hit any key to continue 

1205 a# = INEEY# =: IF at = "“ THEN 1205 

PATO wGoOToA7S® 

(SCO Bes i si sa PEN Ad hols AOR wits ao: LO ASO 7 STEER AGe 

: CLS #1 : FLOT 8tw,90,1 : DRAW 15+w,106,1 : DRAW 

S5tw,60 : DRAW 90+w,1238 : FLOT 132+w,6& : DRAW 117+ 

w,16 : DRAW 128+w,69 : DRAW 90+w,128 : DRAW 9O+w,2 

O8 : DRAW 65+w,176 : DRAW 80+w,130 

1510 PLOT 158+w,193 : DRAW 120+w,174 : DRAW 9O+w,2 

08 : DRAW 9O+w, 234 : DRAW 844+w, 218 : DRAW 84+w,240 
: DRAW 994+w,250 : DRAW 99+w,220 : DRAW 904+w, S24 

1520 PRINT #1," CAUGHT BY THE COASTGUARD" : SOUND 

oies 20,7,0,0,15 ¢ FORSE =e Te SOO are aie i! Sve 

XT w 

L520 (ELS 7] Geer cae 

E500 (ELS #o i2cPRINT Hoes SER IND bo. oo) Oak Ache eae 
EOOCLEN Sh SCE RING Hee PRINT (HS. ) lebacco worth 
H#"'ske1/2 

1605 GOTO 1200 

1700 CLS #5 '° PRINT ee PRINT #5,% BR AN {DY 
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BAY" +: PRINT #23 : PRINT #2,q;" litres of brandy 
worth #3 q*7/100 

1705 GOSUB. 900 ss6O7O%1 2a0 

1800 CLS #3 : FRINT #3 : PRINT #2," LANDING AT SIL 
KEN SANDS" : PRINT #2 : FRINT #2," Silk Worth #"3q 
*#1/2 

1865 1GOSUR 9900 2 >G0Te 2250 

1900 CLS #1 : GOSUB 1000 : FEN #1,2 : LOCATE #1,2, 


PSs tPRINT Sabla UB ee ANG hiss = ese RO (Gee a PRENG 
#1 SOPRENTE A oS? Toe el ee BSS AGATIN 
"PRINT Gls PRENT) Hig Won: Teas WA Stare 


1905 PRINT #1 : PRINT #1," All your spirits are lo 

st u 

1910 PRINT #1 : PRINT #1," Hit any key to continue 

1915 at = INKEYS : IF at = "": THEN 1915 

1920 CLS #1 GOTO 7506 

2000 CLS #1 PEN #134) :S LOCATE #147 5203 (PRIN $i, 

VA ASG ayers Tl Pan Araneae 

2005 FEN #1,2 : PRINT #1,TAB(1S) 3 "*** ha **#*" : FR 

INT #1,TAB(15) 3 "#** ha **¥*¥" : PRINT #1 

2010 FEN #1,23 : FRINT #1,TAB(S);"BOAT SANE AT 2B 

LAGGER POINT" : FRINT #1 : PRINT #1,TAB(7)3 "ALL 

YOURP REO T Sars. eosin: 

20135 SPRINT ed “PEN, | ae PROM FAB CBs PRERTER 
DUES NEXT eine SS iGOSURy 9oo 

2020 GOTO 750 

2100 SCS S35 15 PEN HS 2 = ROCATE #5, lose :- ARUN eS 

9) lS ESeey BAY" : FRINT #3 : FRINT #3,"Tea worth 

#"sk*60/100 

2105 GOTO 1200 

2200 CLS #322 PEN #2,0 = LOCATE #5,10,2 5 PRINT 4s 

7 OMUGGEERS = COVEN: “PRINT Go ts (ERIN Hess “Metres 
of brandy worth #"3q#7/100 

2205 GOO 200 

2300 CLS #3 : PEN #2,0 : PRINT #3 : PRINT #3," WHA 

7 ASOT OR RUBBISH 

REET OSE SUH AD Gisei Mey SMR NIE ot ath | Be p) B= 2S ali 

‘> GOTORTZO® 

2400 ClSS st Serssce Mister, Op rs ER RN oS pes PRL Nite Sieg cme onKee 

%LeHeM BexAxX*Y" : FRINT #23 2: PRINT #2,q;3 "litres o 

f rum worth #"%3q9*5/100 : GOTO 1200 

Es Cy a(S) Se Fae cf eI cee eo ed eA nn te eens eet ool Ee 

a et NR ee thc sak eal el ecto pl eee (a po oe (2) fas 

herry worth #'"3q*3/100 : GOTO 1200 

2600: CESS 2 SE RINT See EBM iets ae eel Een Mey: ales] 

5 Ree Sot = PRON HS eri feed lelwe Werte deine tras 

Estee ff cumin ey RNTNEE) | aed tO) sa) 

S700 CLSs#e.2 FRING Rae ee PR DIN stones Pia 


hb) les 


irs) 


ele ts ay 
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aes i APE eS CP REN Gs. ORRIN StS, rob acco 
worth #"sq*i/S : PRINT #2," Silk worth #"sg¥1/2 
2705 GOTO £200 

REO eee yee terlan siete east trate acme aE er lu esa dt Le iy scp S ack rw Mie tee cg 
eat eke star lita etetciature soe UN apt os) (RRO GRER Sad a iAevCe) 


aS Osea Nene) Seete eta Mien Fea genes © Det (ela ele meme 
CLO FP" : PRINT #1 : PRINT #1," Away on horse bac 
k with the loot" 

2810 PRINT #1 : PRINT #1," Tea worth #"3k*460/100 

: PRINT #1 s FRINT 41,  Sitk worth #":sq%1/2 2 GOT 
HPS On 
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MOON-BUGGY 


A game for two players. 


PARENTS: this is a program to help children improve their mental arithmetic as 
Moon Buggies are raced across the surface of the moon. At the beginning of the 
program, there is a choice of the size of numbers to add, with opportunity to enter your 
own high and low numbers. 


CHILDREN- race your Moon Buggies across the moon’s surface towards your rocket 
and lift off. The program begins by asking you to choose the size of numbers to add and 
your screen will look like this:- 


Do you want numbers between 


1) 0 and 10 

2) 0 and 20 

3) 20 and 50 
4) 40 and 100 
5) 100 and 200 


6) 100 and 500 
7) 500 and 1000 


or 8) do you wish to enter your own high 
and low numbers 


press the correct number 





Both you and your friend will be asked your names and you must type them in. 
Remember to press the FNggaig] key after each name. In order to see who goes first, 
dice will be rolled. Now the race will be on to see who reaches the rocket first but you 


must answer your addition sums correctly. During the game, your screen will look like 
this:- 
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Elizabeth your turn 
260 + 293 


| 





TYPING TIP 


Be careful at line 140 and the variable | (the small alphabetical letter L and not 1 (one)). 
This occurs at frequent intervals throughout the listing. Later lo (small letters L and O, 
not the number ten) is used as a variable. 


PROGRAMMING HINT - WINDOWS 

The user can select up to eight text windows for use in a program. These windows can 
then be used for entering text. In this program three windows have been used and stated 
in lines 30, 35 and 40. Notice that each window is given a number - WINDOW #1 or 
WINDOW #2 etc. The next four numbers define the outline of the WINDOW. 


For example, in WINDOW #41,1,40,1,25 :- 


' 

1 

i 

‘ 

1 

1 

' 

1 

‘ 
= 
S 
= 
n 

1 

‘ 

' 

' 

1 

' 
NR 
ol 
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WL N=DEO (Wit#18,. 1), 2410) Fal pee. 5 


Ck. 


window horizontal vertical 
number line line 


left right top bottom 


Windows can also overlap. 
WINDOW #2,23,40,15,24 


Can you work out where window #3 is according to the statement at line 40? It must 
also be remembered that when reference is made to any of the windows that have been 
specified that #1 or #2 or #3 must be put with the command. For instance, to put text 
in WINDOW #2 would require PRINT #2”..." or to clear the window CLS #2. 


1 REM moon-buggy 

10 z€ = CHR#(142)+CHR# (142) +CHR# (142) +CHR# (143) +CH 

R#(142) 2: x# = CHR# (145) +CHR# (143) +CHR# (145) +CHRS ( 

142) 

11 y# = CHR# (22) +CHRS (32) +CHR# (32) +CHR# (32) +CHR# (3 

2) +CHR# (32) +CHR# (32) +CHRE (32) +CHR# (32) +CHR#F C32) 

20 -REN GO ver DN. 0. OR PE Meet pete LIE: sidan dela Nie en eaten 

Ko 2 GMP ENS S27: 3D NERS 26 

30 WINDOW #1,1,490,1,25 

25 WINDOW #2,223,40,15,24 

40 WINDOW #2,1,17,15,24 

SQ FPAPER #1,0 : PAFER #2,0 : FAPER #2,0 

60 CLS #1 : GOSUB 800 : GOSUB 820 : GOSUBR 840 

63 PEN #1,2 : LOCATE VRIRIG, 2 >: FRINT #1, 2G) oO N 
BU G GY" = LO@CATE #1.,.7,60c-FPRINT #1, 7GAME - F 

OR STWO FEAYERS 

67 GOSUB 850 

69 CLS #1..:-PEN Hi So LOCATE Hi sige PRINT #1.,.°D 

Oo you want numbers between " : LOCATE #1,7,4 : FRI 

NU #1," 2) Os-andtaoy 

70 LOCATE #1,7 762: PRINT #152) Ovand42o. 2. Locate 
#1,7,8 : PRINT #1,"2) 20 AND SO" ; LOCATE #1,7,10 
: FRINT #1,"4) 40 and 100" 

71, EQOCATE: #1 7.,122) 5 SERUM Gedo hen wang. fon. sal 

CATE #1,7,14 : PRINT #1,"6). 100 and-S00" + LOCATE 

#1,7,;16 : PRINT “#1, =]S00-and—1O00" 

72 LOCATE #1,3,18 : PRINT #1,"or &) do you wish, & 


98 


o enter your own high and low numbers?" : FEN # 
i,2 : LOCATE #1,7,21 : PRINT #1,"Fress the correct 
number" 

72 at = INEEYS 2» IF at = "" THEN 73 


74 IF at =. "8" THEN: GOSUB 1200. #:GOTO, 85 

7a IF oat =.2)" -THEN- bm = 11-2: bm = 0 ; GOTO<esS 

76 IF a® = "3S" THEN bm = 21 : bn = © : GOTO 8S 

77 1F oF S. 8S" THEN Bare Shs bnr= 20 £-60TO. 8s 
78 IF a= = "4" THEN bm = 61 : bn = 40 : GOTO 83 
79. iPeat= “S" THEN bm = 101 f bn = 100 : GOTOSSS 
80 IF a¥ = "6" THEN bm = 401 : bn = 100 : GOTO 83 
Sl IF at = °7" THEN btm. = 501s: bm = 500 2: GOTO Ss 


82 LOCATE #1,7,24 : PRINT #1,"I said a number betw 
een i and &" : GOSUB 850 : GOTO 49 

82 CLS #1 : GOSUB 800-: GOSUBR 820-: GOSUB 840 2: a 

= 1: GOSUB 600 

83 LOCATE #1,3,2 : PRINT #1,"What is your name" : 

PRINT #1 =: INFUT #1,no0ne+# 

90 PRINT #1 : FRINT #1,none#;",your buggy will be 

green" : GOSUB 850 

TOO- EES st ia: SCESs#s —260SUR i800": -GOSUB S20> 2 G0SuU 
B 84052 1b = 1 2 -GOSUB S00 

PLS LOEATE #1,S,2 39 RPENSHL 2S 2 PRINT #1, 7What- ery 
our name" : FRINT #1 : INFUT #1,ntwot 

120 FRINT #1 : PRINT #1,ntwo¥;",your buggy will be 
red" ; GOSUER 850 

1eOy CES eh? 2:3 2lS Hi gt PEN GHlSs fee LOUEATE $141,375 8 
RINT #1,"Let‘s roll a dice to see who goes first." 


35 FRINT #1,no0ne#;",you roll first" 
136 PRINT #1,"Hit any key to roll" 
138 at = INFEY# : IF a# = "" THEN 128 
PO. c=" INT (RND*7) 2 GOSUB S50": PRINT #151° :250SU 
B 850 

160 CLS #1l-: PRINT #1, ntwots your turn 

165 PRINT #1,"Hit any key to roll" 

167 at = INEEY# : IF a# = "" THEN 167 

170 ko = INTCRND*7) 3-GQSUB SSQ-: FRINT #1,k. s:)Gasu 
Ee eso 

i7S CUS #1 = LOCATE #1,1,0 = FRINT fl, nooner:  ,your 
score was "31 +: PRINT: PRINT»: PRINT #1, ntwoss”, 
your score was "3k : GOSUB 850 

180 IF 1 = & THEN PRINT =: PRINT #1,"scores equals r 
oll again" :; GOSUB 850°; GOTO 130 

190 CLS°#1 5 ChS #2 : CLS #39: GOSUB 800 : GOSUB & 
20 : GOSUB 840°: a =O : b= 0 

Bon Deak IHENG 250 

Bc reel THEN SOO 
250 LOCATE Hi, t,1 = [PRINT #1 ,none+s “your tticne 
eos) GHSUBSE SO 
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260 LOCATE #1,4,5 : INFUT #1,ansone 

265 IF ansone «<> x + y THEN 2395 

2/70 a=atii 

274 O0R a = 10. THEN SGOSUB 600. 3, GOTR nase 

272 GOSUB 600 : GOSUB 450 : GOTO 200 

500 LOCATE 4 slg li -2 (PRENG 41 intwoss! Fyour fuen | 

305 GOSUB 350 

310 LOCATE #1,4,5 : INFUT #1,anstwo 

S15 IF anstwo <> x + y THEN 392 

S20) Bb =sberrarl 

seo IFob ="10 THEN GOSUB SOO 2 GOTO teoo 

320 GOSUB 500 : GOSUB 450 : GOTO 250 7 

350 x = INTCRND*¥bm)+bn =: y = INT (RND*bm)+b6n 

3o2 PEN #1, 

Soo WOEATEVHT, 4,20 2° PRUNT Hye et ee sey 

360 SOUND 1,71,40,6 : RETURN 

292 GOSUB 400 : GOSUB 450 : GOTO 250 

395 GOSUB 400 : GOSUB 450 : GOTO 300 

490 LOCATE #1,4,6 : PRINT #1,"no, answer is “agxty 

: GOSUB 850 : RETURN 

450 LOCATE #1,1,1 : PRINT #1,y#;y# : LOCATE #1,4,2 

PRINT #1,y#;y# : LOCATE #1,4,5 : PRINT #1,y23y? 

LOCATE #1,4,6 : FRINT #1,y#;y# : RETURN 

2OO CLS #22 FEN #252 73) EOCATE HS s17—b, ies (ERIN 

2, CHREC209 \EHRSG2h5)) 72 LOCALE: 42 ly —bi 7s) (ERENT eae 
,CHR# (209) CHR# (215) 

203 LOCATEs#2 5 13—bieews PRINT HS, CHnhS (al DERE (a 

HR# (143) CHR# (32) CHR#(209) : FRINT #2, TAB(13—b) 3 CHR 

% (211) CHR# (204) CHR# (143) CHR# (215) CHR (209) 

S10 FRINT #2,7TAB(12-b) ;CHR#(214) 32% : PRINT #2, TAR 
(12-b) 5; CHR#(143) 32% : PRINT #2, 7TABR(12—-b) sCHR# (202) 

CHR# (22) CHR# (22) CHR# (22) CHR# (202) 

515 RETURN 

JOO REN Hs. 2i.0 DR IGe=O" TO.S6 SREP sie). MEAT Eta 
,4+g,9 : FRINT #1,CHR#(214) CHR# (215) : LOCATE #1,23 

+g,10 : PRINT #1,CHR# (214) CHR# (142) CHAE (143) CHRE (2 

1 

Joo LOCATE #Iige2tgs, lic: PRIND #17 CHRE(2174 242s CARS ¢ 

215) 3 L0CATE Hlseto.te SPRINT Hl VeHe ss Gale rots 

Ra) 2) 

360 LOCATE #1,34+qg,13 : FRINT #1,CHR# (213) CHR# (142) 

CHR# (143) CHR#(212) : LOCATE #1,4+g9,14 : PRINT #1,C 

HR# (2123) CHR#E (212) 

Oma oats LS a eS Sean Aula comes ey 

270) POReh O TO 4 : FOR hh = 0 T0 4 : LOCATE #1,9 

+h, lOthh s PRINT Fl CHRS( PAS) sNEXiN sities Neiehesh 
SR Re ea ts ee eee 

avo Le Go =— 26) THEN ae®) 

S77 CLS Fie Nestea 

S80 PEN #1,2 : LOCATE #1,36,12 : RETURN 
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600 CLS #2 : PEN #2,1 : LOCATE #3,a,1 : PRINT #3,T7 

AB (a) ;CHR#(214)CHR#(211) : PRINT #3, TAB (a) ;CHR#(21 

4) CHR# (211) 

610 PRINT #3, TAB (ati) sCHR# (211) CHRE (32) CHR# (143) CH 

R#(32)CHR#(209) : PRINT #2, TAB (a+t1) :CHR# (211) CHR ( 
214) CHR# (143) CHR# (205) CHRE (209) 

615 PRINT #25, TAB(at1) s2#;CHR#(215) : PRINT #2, TAB( 
ati) s2#;CHR#(143) : PRINT #2, TAB(at+1) }CHR# (202) CHR 

€ (32) CHR$ (32) CHR (32) CHRE (202) 

620 RETURN 

800 PEN #1,1 : PLOT 0,176 : DRAW 45,224 : DRAW 75, 

224 : DRAW 135,176 : DRAW 195,176 : DRAW 215,290 : 
DRAW 360,290: DRAW 405,240 : DRAW 425,240 : DRAW 

465,272 : DRAW 495,272 : DRAW 525,208 : DRAW 640,2 

0g 

810 RETURN 

B20 FEN #1,3 : LOCATE #1,20,12 : PRINT #1,CHR#(149 
) : LOCATE #1,19,12 : PRINT #1,CHR#(214)CHR#(142)C 
HR# (215) 

825 FOR mm = 0 TO 2: FOR mn = 0 TO 8: LOCATE 41, 
19+mm,14+mn : FRINT #1,CHR#(142) : NEXT mn : NEXT 

mm 

8=0 LOCATE #1,19,18 : PRINT #1,CHR#(214) : LOCATE 

#1,22,18 : PRINT #1,CHR#(215) : FOR mp = 0 TO 2: 

LOCATE #1,18,19+mp : PRINT #1,CHR#(143) : LOCATE # 
1,22,19+mp : FRINT #1,CHR#(143) : NEXT mp : RETURN 


840 FEN #1,2 : LOCATE #1,5,2 : PRINT #1,CHR#(228) 
PeeOCALE Hl p22, 2 is RON etl. CHRS C2350. 5 eOCATE #1, 

31,2 : PRINT #1,CHR#(238) : LOCATE #1,14,4 =: FRINT 
#1,CHR#(228) : LOCATE #1,10,9 : PRINT #1,CHR#(238 
>) : RETURN 

S20 (hUR t= 1) TONZOGO-s NEXh': RETURN 

1000 GOSUB 450 : LOCATE #1,7,4 FRINT #1, "WHOOFEE 
«2 "sntwot;" you won the race" : GOSUB 1100 : END 
1050 GOSUB 450 : LOCATE #1,7,46 : FRINT #1,"GREAT.. 
——snoners YOU won the face” = GOSUB 2100 : END 
1100 FOR tb = 1 TO 30 : BORDER INT (RND#27) +: SQUND 
Lee ere eh Cues ae Ory meme eel Cea rete ME Kel ete as | MEM Testi 
: RETURN 

1200 CLS #1 : LOCATE #1,3,2 : FRINT #1,"What is yo 

ur high number?" : LOCATE #1,23,5 : INPUT #1,hi 
12305 LOCATE #1,3,7 : FRINT #1,"“What is your low nu 

mber?" : LOCATE #1,2,9 : INFUT #1,lo 

PaO neato ieee vO Mee lic cay cient 
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SEARCH 


PARENTS- a novel and colourful program helping language development by spotting 
aword from a screen full of letters from that word. Children of all ages will enjoy finding 
the number of times the word occurs. 


CHILDREN - how many times can you spot a word from a screen full of letters? 
Compete with your friends to see who can spot correctly. The program begins by 
explaining how to spot the word and then continues by giving you the choice of either 
typing your own word of four letters or under, or to use a word from the computer’s 


dictionary, which the computer has picked randomly. Your screen will be full of 
colourful letters and will look like this:- 





Word to find hat 
ahtthattahahhhaattahaahhhaataahhttaahhtt 
athatahtathaaathatahtaahathatthhtaaahbht 
hathatthhthattaahath hhaaaahahtttahatahth 
aaaahhhaththhthhtthtatahtttaathattahhatt 
taaahhaththhhtaahtah ahtthattahahhhaattah 


hatahahtttthatahttah h athatahtathaaathatah 
hhhathhthaahaaahathhhathatthhthattaahath | 
ahtaahhtaahathatthaa aaaahhhaththhthhttht,; 
How many? (a figure) 

? of 





You must count the number of times that the word appears and then type that figure in, 
pressing [SN@MSige after you have done so. 


TYPING TIP- if you require a different set of words then erase line 430 and type in 


30 more words. You may make the words easier or harder but they must be of four 
letters or less. 


PROGRAMMING HINT-MODE ®@ MODE 1 # £4MODE 2 


Your Amstrad Computer can be programmed in one of three MODEs. The MODE 
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affects the number of columns across the screen and also the number of colours 
available. The three diagrams show the number of columns and lines for each mode, 
together with the number of colours available. 








MODE 0 
20 columns 25 lines 
16 colours 
available at any 
MODE 1 





40 columns é 
25 lines 


4 colours 
available at any 
time 
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MODE 2 


2 colours available 


at any time | 





When the computer is switched on it is in MODE 1, known as ‘standard’ or ‘default’ 
mode. These three short programs demonstrate the MODE differences. 


Type them out and try them:- 
10 MODE 1 
20 PRINT "Welcome folks” 
30 GOTO 20 


Run this program stopping it with the key. Now alter line 10 so that it first reads: 
1@ MODE 2 andthen1@ MODE @. Run the program with each of these changes and you 
will see how the size of text alters depending on the mode. Graphics will also differ in a 
similar way. 


1 REM search 

Die cease) 

= ape Oo 

3 PEN CO US INK OOS ORS BN ieee Nia leet ENe 2 ee oT NE 

ayo s- REM S&S. 2 INK S.7 i) BENS 4c: IN 4 ees eee oe: 
INE 5,24 9 PEN Ot NEG. bos OREN fos ei Ne giecdic 

30 GOSUB 200 

ie ieee ieyee sea ee URGE EN oe a) sl sae cate 

40 BORDER 12 : FAFER 7 
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435) GES 

48 PEN © > PRINT “Word to find “;word# 

Soups rs 

70 £ = LEN (word) 

80 FOR r = 1 TO 48 * f 

90 m = INT (RND¥4) +1 

100 HF = MID#(word#,m,1) 

105 PEN INT (RND#7)} 

HO ERVIN testes mee 

120 p¥ = RIGHT#(ps,f—-1Li +h 

120 IF p# = word THEN n = n+ i 

140 NEXT r 

150 PRINT "How many?(a figure)" 

135 INFUT ans 

160 IF ans = nm THEN PRINT e"Good" sELSE“FRINT “No, oa 

nswer"3n 

165 END 

BOOM Alen Oo jt eNiet some Ate sass PRON eWoRD———S 

EARCH" : FRINT : FEN 2 : FRINT “This is a game to 
spot a certain word on the screen from a random 

array of letters taken from that word." 

SG eR INT Pehl 2s SPRL homers bancet sr ENeS 

TPR boos "Gate SRR Nie PRIM Vetactaccat tac ) => 

RINT : FEN 2 : PRINT “appears once" : PEN 7 : LOCA 

je S.15 9. PRINT CHRO 2OS) CHR Os CHa C208) 

HeOCPEN 7 = 4IRRENT = FRING <P RINSE RUNT Shite. emy 


key" 
230 af = INEFEYS : IF a® = "" THEN 330 
S40) GL5°: PEN 2 SCF RINT © PRINT 4 boeyvyouw want to “ 
Sere Kamel ke Miett Wei WN CHIGCLE Cus orrkIMill else bike h 
Nie “ert :- PRINT s PRINT “2) tse a computer wor 
at 
Sear Gls ies ete Po. Storm NL ote sets ee Sh ee 
SOOmn ts a= se UNE YS. 3) LF. be. = 2 STR SO 
S60 0lm Bs = “1" THEN PRINT =-PRINT “Enter a word o 
€f fourletters or less" : INFUT word : RETURN 
eo i bye en ee mn eos 


Lome eu eel ee al Or eRe tt = i TOs eaom ss NE 
Milaw igre aGleS 2s Seog SaO 

4600 RESTORE : FOR w = © TO 29 

405 READ z£(w) : NEXT w 

410 ~ = INT CRND*20) 

415 word = "": wordt = word? + z¥(x) 

420 RETURN 

420 DATA mad,rub,rat,chum,hate,mark,beq,ship,soil, 
rain,tap,net,bit,than,home,hat,wet,wait,trip,move, 
son,sun,met,top,left.head,girl,boy,toy,bin 


105 


MATCH 


PARENTS:- this is a program for a young child to practice matching numbers as words 
or figures with a number pattern. On the right of the screen are five patterns of stars. The 
number to be matched with the stars appears on the left. The child has to press the space 
bar when he thinks that the figure or word corresponds to the pattern. 


The screen will look like this:- 


Seven -——__» 
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The program allows for the arrow to go through the sequence of patterns three times. If 
there has been no input, then the child will be shown the correct answer. Similarly, ifthe 
child gives a wrong answer, he will be shown the correct answer. 


CHILDREN- numbers are fun! Try to match the stars with the number. Press the 
SPACE BAR when they match. 
PROGRAMMING HINT - MODE @ 


This program has been written in MODE @ (line 50) so that the characters are large and 
clear. Mode 0 divides the screen into 20 characters horizontally and 25 lines vertically. 





1 REM match 
10 DIM Bb#(10) 


{i qt = ** 4% #° ox Ibs * eo" 2 FS = "HOH HN S 
Eee ae ee 
Lea ve 1S 


Sy PEN O s INK‘ G50: “PEN *1 + INK SY, 24 3 PEN 2 te BN 


pee 7 PEN TS © ont aie 

25 MODE © : BORDER 10 : PAPER © : FEN 1: CLS : LO 

GATE o.10-s PRINT A sie ceeleN ae 

a7 uroOR & = 1 TO - 10+: “BORDER INT (RND¥27) : SOUND 1, 

S58 20.7 or rr Or-t 2 TOCPGOTEONERT Ut 1: [NEXT kK 

29 LOCATE 1,12 : FRINT "Do you want to match 
-" » PRINT 2 FRINT "“1) words?" : PRINT : FRINT "2) 
figures?" ¢ PRINT : INPUT ans ? 

29 IF ans 1 THEN RESTORE 300 : GOTO 40 

SO LP ans 2 THEN RESTORE 320 : GOTO 40 ry, 

32 PRINT. “Incorrect number." : FOR t = 1 TO 1500 : 
NEXT it. \: GOT. 25 

40 FOR m = 0 TO 10 : READ bs (m) 2: NEXT m 


50 MODE © : BORDER © : PAPER O : PEN 2: CLS 


io 
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55 ¢c = INT(RND*10)+1 

60 d = INT(RND*10) +14 

65 e = INT(RND*10)41 

7O € = INTCRND#*10) +1 

71 g = INT(RND¥10) +1 

72 IF c = d OR c =e OR ec = f OR c = g THEN 55 
74 IF d =e OR d = f OR d = q THEN 60 

76 IF e = ¢ OR e = g THEN 65 

77 IF £ = g THEN 70 

80 h = INT(RND#*5) +1 

82 ON h GOTO 90,92,94,94 

90 h = cir = 14 : GOTO 100 

92 h = d: r= 2: GOTO 100 

94h =e:r = 2: GOTD 100 

96 h =f :r = 4+: GOTO 100 

98 h=qg:ir= 5: GOTO 100 

100 LOCATE a,2 : ON c GOSUB 250,248,246,244, 240,23 


Ae Oe Oe 


etal g oth yg Oy 


105 LOCATE a,7 : ON d GOSUB 256,249,246,244,240,23 


Fog ae 


wg whet g eG) gee Oye 
110 LOCATE a,i2 : ON e GOSUB 250,248,246,244,240,2 


Ces aah aL arty ue eee) emu 
set gg cg eg eg 


115 LOCATE a,i7 =: ON f GOSUB 250,249,246,244,240,2 


Dy 
Pye gly eae 5 Bo 


120 LOCATE a,22 : ON g GOSUB 250,248,246,2744,240,2 
35,252,230, 2278,22 


Leo RSS WUE OO 

io FOR=y = 0 vill 

LSOSPENS Dist PORsie=sses Ges, Sirs 

Lao reBEATES 1. a: AEE Mile baiChoe seh sss” (ERG e iets 
: GOSUR 4350 

BGO Fie ey ge de male) peed ees) ers Ne) 

EGS) ete = ED INES oe Se ere ae ee TE Nepah ay 

fed Mr NE OS csr 

ie SeN ha OR Ares Ao Rane 

178 af¥=" " 

1802 NEXT p 

LS5-NEXT y 

190 BOTO S00 

200, BOR ny =SS sO a 2Gea tere 

202. PLOT (S45ninyo 2: IDRAWRSSS iin, cos SEOl estan mole: 

DRAW S85 ,n+64 

204 PLOT 745,n : DRAW 245,n+64 : PLOT S85,n : DRAW 
285,m+64 

20S NEX Tom 

210 RETURN 

226 PRINT g# : PRINT TABCat1) s;n# : PRINT TAB (a) sg 
: RETURN 

228 PRINT g# : PRINT TABCatl) sh# : PRINT TAB (A) 3 #4 
: RETURN 


5 
a 
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220 PRINT g® : FRINT TAR Ca+1) she : PRINT TAB(Ca) sk? 
: RETURN 

252 PRINT g® : PRINT TABCat1) 3 "*" : PRINT TABCA) SE 

+ : RETURN 

235 FRINT f# : FRINT TABCat+1);"*" 2: PRINT TABCa) sk 

Sees Oy 

240 FRINT k? 

241 PRINT TAR(Cat1) 5 "#" 

242 FRINT TAB(a)sk# : RETURN 

244 PRINT k# : PRINT TAR(at+1);"*" : PRINT TAB(Ca);" 

os RERRN 

246 PRINT k# 

247 PRINT TABCati)s"*" =: RETURN 

248 PRINT k# : RETURN 

CSOm ERENT 1 Se oe NE OhuN 

300 DATA numbers,one,two,three,four,five,six,seven 
,Gight,nine,ten 

320 DATA figures,i, 

tet Ollie 


935 495,457,8,9,10 


= 1 AND p = = THEN 4600 
S00 IF r = 2 AND p = 8 THEN 400 
360 IF r = 3 AND p = 12 THEN 400 
S65 IF r = 4 AND p = 18 THEN 400 
370 IF r = 5 AND p = 22 THEN 400 


BBO PEN 1 : LOCATE 1,p+i : FRINT "No" : FOR t = 1 

TO 1000 : NEXT t 

383 LOCATE 1,p : PRINT " ": LOCATE 1,p+i 
: PRINT " " 

285 GOTO 500 

400 PEN 2 : LOCATE 1,p+1 : PRINT “good" : FOR x = 

1 TO 10 : BORDER INT(RND*27) : SOUND 1,30,20,7 : F 

OR t = 170 250 : NEXT t : NEXT x 

410 GOTO 50 

450 FOR w = 1 TO 3 : PRINT CHR#(154) 

63,20,7 : FOR t = 1 TO 200 : NEXT t 

NT CHR#(243) : RETURN 


2 SOU age 
NEXT*AS SOPRE 


500 IF r = 1 THEN p = 3 : GOTO 520 

S02 IF r = 2 THEN p = @: GOTO 520 

504 IF r = 3 THEN p = 13. : GOTO 520 

506 IF r = 4 THEN p = 18 : GOTO 520 

508 IF r = 5S THEN p = 23-: GOTO 520 

S20 FOR = = 170 5 : FEN 1 : LOCATE 1,p : PRINT bt 
(h) : PEN 3 : LOCATE 7,p : GOSUEB 450 

525 SOUND 1,201,20 : FOR t = 1 TO 200 : NEXT te: L 
OCATE 1,9 : PRINT " " : FOR t = 1 TO 200 


ree (Neeenp ete ee Mi le ce 
noe GOTO: So 
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PARLEZ-VOUS 
FRANCAIS? 


Bonjour La Maison’ French 

Three novel programs to reinforce early French learning and vocabulary, highlighted 
with good clear graphics. A total of over 100 French words are used in the three 
programs. 


N.B. During these programs the accents and cedillas have been omitted. 
BONJOUR 


PARENTS- Bonjour is a very simple program designed to give repetition and 
consolidation practice in numbers to 20 and the colours red, blue, green, yellow, black, 
white and orange in French. This is done by a question and answer routine with helpful 
graphics. 


CHILDREN- are you learning French at school or practising French for a holiday? If 
so, this will be a helpful program for you. The computer will ask you either:- 


"De quelle couleur est la maison?" 


or"Combien d'arbres y a-t-il?" 


De quelle couleur 
| est la maison? 
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or 


Combiend d’arbres 
ya-t’il 





Type in your answer and remember to press the key after it. 
For example:- 

blanche 

verte 

six 

douze 


A correct answer puts "bien" on the screen. If your answer is wrong, you will be 
shown the correct answer. It will look like this:- 


“non, La maison est 02%. .% 
Cine cnon:, 


SCL ye Nea je seas 


You must remember that because house takes the feminine gender, then the colours 
must also take the feminine gender. 


lll 


1 REM bonjour 

= DIME Geo) 

a Neve} 

10 PENTO? 2 4INK OO => PEND des SINK A i2o Seen seeks 

K 2,6 2° PEN 3 2 INK 2,90: PEN 402 INE 22 5 OFEN 3S 
: INK 5,24 ) PEN 46 eee, fo-2 Fee aS 
PEN 8 : INE 8,20 

15 at = CHR# (145) +CHR# (143) +CHR# (142) +CHR# (143) +CH 

R#(145) +: b# = CHR#(142)+CHR# (142) +CHR# (143) +CHRS ¢ 
143) +CHR# (145) +CHR# (142) +CHR# (143) 

20 (ck (O)e = “naire. seer (ly = blanche" 9s este) e= 

rouge" : c#(3) = “verte" : c#(4) = "bleue" : c#(5) 
= "jaune" : c#(6&) = “arange" 

BES Cli. besa We a ee uke omGhte ik.) aaa ee teen ke 

30 BORDER 14 : FAFER 0 

ey loa eee tp by ms tee” ae 

SS CLS : FEN INT (RND*8)+1 

SA (IS Nes eget ee meee ede mts tere) Sree ees eta 

26 GOSUB 420 : NEXT bb : GOSUB 400 

59 b = INT (RND#¥2)+1 

S53 ON b GOTO 100,500 

100 a = INT (CRND*®?7) 

1LS0 BORDER lo 3s" BAareRey = CES 

140 GOSUB 2060 

150 FEN 0 : LOCATE 1,19 : PRINT "De quelle couleur 

est la maison?" : 

160 LOCATE 1,223 : FRINT "La maison est" 

Tes°boGATE Seo s hive eas. 

170 IF ans# = c#(a) THEN 200 

180 PRINT "Non, la maison" : FRINT TAB(8)3"est "sc 

#(a) 

1385) GHSUR 420%: GOTH 3s 

200° PRINT 2: PRINT “biven" = G@SUB 400: Ghigesc 

BSS ORC) a Fea INN ey yes ENS Coy ems Let age a Re GML Tp ee Uy ap tec Does ss Fees on 
St reo ee cr GMa mera heen clase) 

205 LOCATE 10,4 : PRINT CHR#(214)53 a#3CHR# (215) 

310 LOCATE 9,5 : FRINT CHR#(214) 3 a¥#;3 CHR# (143) CHRE ( 
143) CHR# (215) 

SS BOR V2 = QO 2] EGA bore se rutin tre eee te 
Wiles 

S20 PEN @ 2 RORY =) 0 VOSS CAh= ie hyve PrRelNG 
CHR (lA 2 SOE AGES US 7 yee eras NT ee iek se Cede em en (s, 

ATE Li, loty sceRONT CHR Cia ae COG AiES tea. Lee y tee 

RINT CHR#(142) : NEXT y 

Soa0 FOR x =O TONS 3: LOCATE 1S, 1OFY=t PRINT “ChRe CL 

43) : NEXT x 

340 FEN a * FOR we="OS%O"S =: LOGATE Lst+w,l4tw 2 FR 
INT CHARS Cel 2 .GHRs ls = NEAT Ww 

350 RETURN 

400 FOR m = 1-7 -20+2eSOUNDMet aly y2o57 s FOR t = 
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eT OeSSO = NEG es sNEXT im RETURN 
420° RP ORonN =5791O>O STEP i= 1 SOUND 15350,20,n,0,0,4 
2 : FOR t = 1 TO 200 : NEXT t : NEXT n : RETURN 
450 DATA numbers,un,deux,trois, quatre,cing,six,sep 
t,huit,neuf,dix,onze,douze,treize, quatorze,quinze, 
seize 

oo DATA dix-sept,dix—-huit,dix—neuf,vingt 

200) BORDERS22 2 SPAPER S82: 5CLS 

S10 h = INT (RND*¥20) +1 

325 FOR f = 1 TO h : FEN INT(RND*¥8) : p = INT (RND*¥ 
Pps OCT ee toe spe bol Ni SGrine Gabe os DCA iE of. at 
De PRLNiCHRS CLASS eaNEXT + 


Bo vePeNs Os tOGAte ohh? Rahn YiGemb nem dc agbices! 
seelshound: oy ai det 

Societe 2 LINE ane 

a40 IF n& = d#th) THEN PRINT "bien" : FRINT "Il y 


Siiaewwhic a RMN waibies.e) 2. S0SWE. AG0 cs iS Oiidaoe 


TSOCERINT Ine ERIN il yeamn, av sd th). + -BR LNG 
Scimpireger «= GOSUBS420 + SOTO .S0O 


LA MAISON 


PARENTS- La Maison is also a program that involves selecting the correct colour to 
complete a sentence about different parts of a house. Obviously, a wider vocabulary is 
required for this program, and a knowledge of masculine and feminine genders BUT it is 


still a program designed for beginners! 


CHILDREN.- in this program you are asked to complete a sentence about the colour 


of different parts of a house. 
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You will have to think carefully before you type in your answer because some words are 
masculine and some feminine, and the spelling of the colours alters accordingly. 
Remember, as well, to press the key when you are sure that you have the 
correct answer. 


If your answer is correct, "bien" will be shown on the screen. If your answer is wrong, 
you will be told the correct answer. 


For example:- 
“Lersentien est .s. <5 
"verte" 


"non, Le sentier est vert" 


Don’t forget that all the accents and cedillas have been left out of these programs. 


1 REM la maison 

Ss VOD eEs 

TCE Ny osor TINTS Cie) sus fabs Ne ne MIN acre ce el Nc IS 

Reus Nice were Nig eee Mt onan simen LIM ks eerottea Se mieeentt oie 
: INE 5,24 : PEN 6 : INK 6,15 : PEN 7 +: INK 7,13 


15 aft = CHR#(142) +CHR# (142) +CHRE (14:3) +CHRS (143) +CH 
R#(142) 2: bE = CHR# (143) +CHR# (143) +CHR# (14-2) +CHRE ¢ 
143) +CHR# (142) +CHR# (143) +CHRE (142) 


20°EF(0) = “noire! : eckel) = “blanche™ = te2(2)]——- 
rouge" 2: c#(3) = "verte" : c#(4) = “bleue" : c#(S) 
= "jaune" : c#(4) = "orange" 

ee ee CO eh ECT Pela Seer tet eal nce Alea Ii) Campin emer) See ar ESET 
gers f4(3) = “yer Ese t5 64) S6" bbe see. (5) SS 
aune" : £#(6) = "orange" 

1900 a = INT (RND*¥7) 

162 b = INT (RND*7) 

104 c = INT (RND*7) 

1606 d = INT (RND*#7) 

1908 e = INT (RND#7) 

110 * = INT (CRND#7) 


112 IF c = d THEN 104 

114 IF e = c THEN 106 

120 BORDER 3.2) PAPER. 7. = CLs 

146 GOSUB 200 

150 r = INT (RND*6) +1 

Lol ON rf) GOTO SIS2, 154, 156,458, 260) dew 

152 n¥ = "la cheminee “ : g = a : GOTO 180 
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154 n# = "le toit " : g = b : GOTO Soo 

PSou nea Les muir og Stee SOTOeSsoe 

158 n# = "la fenetre " : g = de: GOTO 180 
160 n# = “le sentier ": g = €f : GOTO 500 
L63ent = <‘Lla porte” 2 gs= 2 

USOSEEN Ose OECALE RS ons PRINT ne stest wie 
18S LOCATE 10,21 : INFUT 2s 

190 IF z# = c#(g) THEN 4600 

SvOsLOEATE 2.25.2) PRINT “nons snes 

205 PRINT TAB(2)3"est "“sct(g) =: GOTO 400 


SOOSCREN as) LOCATE 1S, 2 ER INT CHR iS = LOCATE 
foe tsi Nt GHRECL Ss) 

305 FEN b : LOCATE 10,4 : PRINT CHR#(214) 3 a¥s CHR# ( 

2ir5) 

oO PEN bo: LOCATEI9,S = FRING CHREC214) 3945 CHRe Ol 

42) CHR# (143) CHRE (215) 

ier Mss orUn 26 Ceo 7 s LOCATE SO. ot2ts PRINT 
eta xe = 

SeOUP eM eGat wRnot  ye=aO ho 1 akOCATEs 1. vy): ERENT 
CHnS Cl 42) es LOCATE S.7+) 222 RNP CORE 4 Ss): LOC 

Ase eet INN | ise a spleen tes LOY see ke 

RINT CHR#(1435) : NEXT y 

SoUureNoe 2 FORSx = O TOs § LHGATE (1S, 207 3. PRIN 

T GHR#(1435) 2 NEXT x 

S340 FEN £f + FOR w = 0 TO 2 : LOCATE iStw,14tw : FR 
INT CHR# (212) CHR#(215) : NEXT w 

350 RETURN 

200 OR mn = 7 LO .0 STEER —1 

ZOFe SOUND wi son co, MO, lo 2 ron, to =a TO Soe NE 
Niece NE kt hee GOR Lao 

SOO FEM OF 52 LOCATE 25207: RINT neyo est. 

FOr weOocAale LO,22 psc rNPoeT eS 

905 IF z¥ = f#(g) THEN 600 

SLO scOCAT EY 2, 2c cue re LNT onemis sma. 

S15 PRINT TAB(2)3"est "sf#(g) s: GOTO 400 

600 LOCATE 2,24 : PRINT “bien" 

SUS. OR m= 1 TOO eieSOUND 1,1517520.17 = FOR t = 
Pre s® SEX), epeso NEXxd om 


610 GOTO 100 


FRENCH 


PARENTS- this program gives practice in many of the common words connected with 
home, school, days of the week, months of the year and many others. 


CHILDREN- can you stop the hang-glider from getting a “ducking” in the River 
Seine as he takes off from the Eiffel Tower? All you have to do is translate the given 
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French word into English. When you have typed in your English word, remember to 
press the (SINpg@aieil key. It is a race against time!! 


Your screen will look like this:- 





l'auto 
the car 


or 





out of time 





BONNE CHANCE! 
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PROGRAMMING HINT - GRAPHICS 


In many of the program listings you will see the command CHR$( ) . Inside the bracket 
will be a number in the range 32 to 255, which refers to a set of character symbols that 
are permanently in the computer’s memory. For instance, the command: PRINT 
CHR$(239) will give a rocket shape. 


Try this short program which will give you all the character symbols on the screen:- 
10 FOR a= 32 TO 255 
20 PRINT CHR$(Ca) 
SOIEOR, th= 1910722507: NEXT + 


40 NEXT a 


You will find all these characters and their corresponding number in the Amstrad User 
Guide in Appendix 3. 


1 REM french 

10 DIM a#(61) : DIM b#(41) 

12 d# = CHR# (140) +CHR# (140) +CHR#(140) : gt = CHR#( 
145) +CHR# (142) +CHR# (142) +CHR# (143) +CHR# (1435) +CHRE ( 
142) 

15 ht = CHR#(32) +CHR# (32) +CHR# (SS) +CHRSE (32) +CHRE (3 
2) +CHR# (32) +CHRS(S2) +CHRS (S32) +CHRE (S52 

20 FOR b = 0 TO 61 : READ a¥(b) : READ b#(b) : NEX 
alias 

Omri Oe cue li. horse Ne leita ME ues sees se Dh 
Ee Ota ee Mier cee Leena oe 

40 BORDER O° :~ PAPER? O° 2° CES 

45 GOSUB 400 : GOSUB 300 

30 BORDER © : c = INT (RND*461) 

SSC GAtE 20) ae eos ) imo  aaCc) 

690 GOTO 700 

SOO ENe sf OCHi rE Sie ERIN desi ao OG AT ee 24. 
soo 2 PRIN d?3qFsq%3CHRS (145) 

305 LOCATE 17,24 : PRINT d#; 9%; g#3g#3;CHR#(143) CHRE 
Deeb) as wellee GVEA iar de screen et tail th enc see hice mich te le cy So) oe 
RETURN 

AOC Loa ay to DRAW LOO, FOO Ss PEO SO, aors 
DRAW 45,88 : DRAW 60,144 : DRAW 75,224 : DRAW 82,2 
04 : DRAW 87,2638 

405 DRAW 100,284 : DRAW 112,268 : DRAW 118,204 : D 
RAW 125,224 : DRAW 140,144 : DRAW 155,88 : DRAW 17 
0,28 : DRAW 162,26 


117 


4160 FOR a = Fi) TO 180>s DES t: Rei Slssreexees (av ao 
+2B4SIN(Ga) 2 FLOT 651262605 Cao sate2aeSiNival Ss NEAT 
- : 
415 PLOT 107,274 : DRAW 100,32 : DRAW 92,24 =: FLOT 
30,38 : DRAW 37,26 
420 PLOT 45,88 : DRAW 100,102 ;: DRAW 155,8 
60,144 : DRAW 100,160 : DRAW 140,144 =: PL 
8 : DRAW 100,276 : DRAW 112,368 
29 RETURN 
475 FOR t = 1,70 S50 =: NEXT £ + RETURN 
3900 DATA un homme,a man,une femme,a woman,un garco 
n,a boy,une fille,a girl,un chat,a cat,un chien,a 
dog,un poisson,a fish,un oiseau,a bird,un poulet,a 
chicken 
795 DATA un livre,a book,la table,the table,la boi 
te,the box,dans la table,in the box,sur la table,o 
n the table,un stylo,a pen,une gomme,a rubber,un c 
rayon,a crayon 
310 DATA la salle de bains,the bathroom,la chambre 
,the bedroom,le salon,the lounge,la salle a manger 
ythe dining room,la cuisine,the kitchen,notre mais 
on,our house,votre maison,your house 
SiS DATA un cahier,an exercise book,un mur,a wall, 
une chaise,a chair,une boite,a box,un magnetophone 
,a tape recorder,un tableau,a picture,une caravane 
,;a Caravan,une tente,a tent 
520 DATA un jardin,a garden,un magasin,a shop,un s 
upermarche,a supermarket 
S25 DATA lundi ,Monday,mardi ,Tuesday,mercredi ,Wedne 
sday, jeudi, Thursday,vendredi ,Friday,samedi ,Saturda 
y, dimanche, Sunday 
530 DATA janvier ,January,fevrier,February,mars,Mar 
ch,avril ,April ,mai ,May, juin,June, juillet,July, aout 
August, septembre, September ,octobre, October ,novemb 
re, November ,decembre, December 
Pa rere ties coi ee aT anniversaire,happ 
che apnidagi eee GR ae 
, the eyes,l’oreille the =. PASE ESS TORGRLES Tens 
a 


: PLOT 
T 87,36 


Ow 


7OO mst = le 

J/IOUPORGae= Oo. Tas 

ini 2 : LOCATE 94+d,4 : FRINT CHR# (249) : GOSUB 
) 


730 datum = INT(TIME/300) 

740 GOTO 760 

750 LOCATE 9+d,4 : PRINT CHR# (22) 
752 IF d = 8 THEN 850 

735 NEXT d 

760 £# = INKEYS 
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Lim Teche oS HEN oo 

780 IF ASC(FE) = 13 THEN 900 

790 m#t = mF + F¥ 

SOCSFEN=Ses LOCATE 20,4 2 PRINT m*# 

810 ticker = ((TIME/2Z0606) -datum) 

aoe ie otieher ¢1 THEN 750 

820 GOTO 760 

850 FOR d = © TO 16 

852 FEN 2 : LOCATE 18+d,S5+d : PRINT CHR#(249) : GO 
SUB 980 

854 datum = INT(TIME/209) 

856 GOTO 860 

857 LOCATE 18+d,5+d <° PRINT CHRS (22) 

Sdoete ad = 14 THEN LUCATE.s4, 21 +: PEN 2°: PRINT CH 
R#(249) : GOTO 950 


859 NEXT d 
860 ## = INKEYS 

862 IF f# = “" THEN 845 

862 IF ASC(f#) = 13 THEN 900 


865 mt = mt + FF 

868 PEN 3 : LOCATE 20,4 : PRINT m# 

870 ticker = ((TIME/366) -datum) 

e772 Le sticker..7b. THEME SS7 

875 GOTO 860 

TOO lk ms «7 b+Cc) THEN 920 

902 LOCATE 27,7 : PRINT “bien" 

905 FOR w = 170 15 : BORDER INT(RND*27) : GOSUB 9 

Boss GOSUE; 996.2: MEXT Hw 

S10  GOSEUR 1000 2 GOSUB 300°: GOTG,.50 

SO mnie On) 2 PRIM ror * 

so LOCATE 20,9 : PRINT “the answer is" 

SA Oem woe tO os ritimM) Dette, Ss FOR toe 1 Tey 2000 
Mine wrt = OSU be LOU 2 basis soo" 2) GOTO sO 

Ta Meonine weOw st a Rit Out OF time wae a OliMbeals i 

in Olay, 

Soares da teor pea Th oa WORATE "as ,22—o0 Heer Liv 

leGHke (L444) = LOCATENSs, 22—-p s9PrRINT -CHRS’ 1449 GS 

SUBS TSOn =) GUSUBETTO.s MEXT p 

SCout =-0 TOs) = LOCATE ZStp.4a8 2 PRINT ChRaCL 

44) : LOCATE 32-p,18 : PRINT CHR#(144) : GOSUBR 9&0 
: GOSUB 990 + NEXT p 

Poder = ON. teat A ie oO, totn 2 PRINT (Chia? 

44) : LOCATE 238,19+p : PRINT CHR#(144) : GOSUB 980 
» GOSUB 990: NEXT p 

970 GOSUB 1900 2: GOSUB 200 : GOTO 30 

980 SOUND 1,69,20,7 : RETURN 

[yO POR t= 1 TO 200 2 NEAT fo: RERORN 

1006 FOR w = 1 TO 21 : LOCATE 12,1i+w : PRINT htshnt 
Sint tena icewate Aes pee iM 
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DIVISION 


PARENTS:- the aim of this program is to give practice in the division tables using 
numbers between 0 and 20. Speed is an important factor and the children are timed 
whilst they achieve ten correct answers as the car passes the traffic lights. At the 
beginning of the program there is a choice of difficulty either:- 


a) easy 
b) harder 


c) very hard 


The easy questions are numbers between 1 and 100, for example 90 + 10 or 56 + 7. 
The harder questions use one number between 10 and 200 divided by a number 
between | and 10, for example 160 + 10. The very hard questions use two numbers 
between 10 and 400, for example 260 + 13. 


CHILDREN: will your car pass the traffic lights? Speed and accuracy are important 
as you answer these division questions. The computer will time you for ten correct 
answers, so why not test your skill against a friend’s time. The computer will first ask 
you how hard you want your questions:- 


The easy questions, which are choice (a), will give you two numbers between 
1 and 100, for example 90 + 10 or 56 + 7. The harder questions, which are 
choice (b), will give you one number bewteen 10 and 200, divided by a 
number between | and 10, for example 160 + 10. The very hard questions, 
which are choice (c), will use numbers between 10 and 400, for example 260 
= AS: 
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Your screen will look like this this:- 





A pencil and paper will help you with this program. You must always 


remember to press the. key as soon as you have typed your answer 
into the computer. Don’t waste time as every second counts. 


PROGRAMMING HINT - MUSIC 


Simple music can be programmed very easily into your Amstrad Computer. 
Look at the subroutine at line 550. This line gives two bleeps for note C. 


SOUND 1,119,10,5 


a 


channel tone duration of 


volume in 
number tone where the range 
100 equals 0 to7 
1 second 


Try this program:- 


10 SOUND 1,478,100,7 
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‘for a simple bleep or this for ten random bleeps:- 
5 FORa =170 10 
10 SOUND 1, INTC(RND*3822)+1,100,7 
15 FOR t= 1 TO 200 = NEXT t 


20 NEXT a 


1 REM division 

LTO MSDE 

20 BORDER ©G + PAPER (OD DINK (Ole GOSUR Soo, 3 .GeSY 

Boot Os =" Opt set eon fe bOSURS eo 

SQOPENS I ee ENE Teor ee OC ergy cere te Ni gr abc ke Mee 
: LOCATE 1,4 : FRINT "Will the car pass the tra 

fA A ehese 2 

40 NP OR = Os 200055) NEXa, ot 

= ORS GIRDER 7 a se eee Os bBo Oi cece 

SO Ce Serr AE Neate se a Nee tee. Serre ae eee rn ames athl ict 

t is your name?" 

70 LOCATE 2,4 : INFUT namet 

SO LOCATES 2.5) 3 PENDS 2s rTNE Ol sse Rr Mie seb vere 

name*+ 

SO LOCATE. VO): REN OL os PRE Ni. Sige te Siete s tea outte 
division against theclock?" 

LOS RMT ec eM EIN Ges tery a ee eae CIM ents ed SRNL a cI a 

e the correct answer to ten questions." 

110 PRINT*s PEN 4 SINE 4,2 2 °RP RINT? “Hiteany key” £ 

o start” 

120 at = INKEY? : IF a¥ = "" THEN 120 

1 SOC 5e) BORDER? 7% sRAEER: 0 ts <I NRO. Sey eae ENG lens 
INK 1,6 : LOCATE 1,4: PRINT “How hard’ do you want 

your division?" 

140 PRINT: FRINT : FRINT " 1) easy" : PRINT : PRIN 

TT. 2) harder“: PRINT #, PRINT 22S) Very haga" 
1LSOCERINte te ERENT iy Oe dee © fee 

160. PRINT : INFUT a 

170 TF di <1 OR id) S SiMe BR Nile tule Ser ti chee lg st wctoaes 
ty aC Reet I— TS 200C4 NEXT = =eGOveh so 

180 total oO 

190 datum INT (TIME/200) 

200 CLO Ps” BORDER’ 6) 2UPArER O's -INK a. 

295 WINDOW #1,10,20,10,1 : ticker = INT((TIME/2300) 

=datum) 7 LOCATE. bod s FENRIS 7 so INK ea se et 

NT #1,ticker; "secs" 

210 IF d = 1 THEN a = INT(RND*¥10)4+1 +: b = INT(CRND* 


1 
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10) +1 30 p==Aaxb 


215 IF d = 2 THEN a = INT(RND¥11)4+10 =: b = INTCRND 
#10)+1 : p = a*b 

220 IF d = 3 THEN a = INT(RND*¥1i1i)4+10 : b = INT(CRND 
ce LG = ax®b 


» p 

250 50SURS S004: SOSUR SIO sy Os 2 = 6) GESUB 
20 

240) EGCATE’3,°7) S URPEN S287 PRINT peCHRe-(37).5 35 

250 LOCATE 7,11 2: INFUT ans 

260 IF ans «<> p/b THEN 400 

27OPPEN TS 2 SINE 6.52 FR INTS: SPRINGS toreat.oreat, 
great" 

Sea ERIN) = PRINT well done" 

277 LOCATE 8,17 : FRINT name? 

Peoria Qe mia notre Ohm tea de Clemo aN Eel: eros 

SOUND 1,40,20,7 : NEXT g 

290 total = total + 1 : IF total = 10 THEN GOTO 30 

oO 

292 y = 7 2 =216 3GOSUE S2O Rey ROR gr OCG Ss: 
FUR Im = 0.70 222 LOCATE*7+ik .2i+im = PRINT (CHR ¢ 

S20 2 -MEXT Im 2 NEX)- jibes GOSUB S30 

295 GOTO 200 

SOO LS s ES 4 2 LOCATE 2,6 s PRINT “You taok “3 

Eheteics Secs Sek IN SorPRINE “eo get 10) commeckh.” 

210 PRINT =: FRINT "Do you want 10 more?" 

315 INPUT n# 2: IF né = "y" OR n= = "yes" OR n= = " 

VesORtee = veon THEN 1.50 

320 PRINT : FRINT "Bye for now" : END 
AGG. EN as SRE Niles PO Rec ies Sei 1 

410 SOUND 1,1911,40,c 

ey ean fe = LN ireccd 5 eGR EReraced geek Ck sng Eas WL AD Np espn d CC yaa enna Samay ES ola 

420 PRINT : PRINT "answer is "3p/b : 

BOOMs EXT ts GOTO 200 

ZOO) FEN S) seehORe waa O SO) 2s LREATE daj18+wi = obREN 
HGR (lc. esl ATE shined tw ARENT CHORES Oo ees gly 

GEATE Pe. 21+w ss PRINT, GHRE(211) = NEXT wo: FOR ww 

=O TO 19 =: LOCATE ttww,24 2 PRINT CHRS (208) 9 :- iNEX 

T ww : RETURN 

VORP ENelateatNis 6-6 POR wee Oo TO 20s LOCATE Sat 

Stwiet PRINT HRS C128) 2 NEXT we 3) REGURN 

2oOnrPeN eo oto tN Soo rOR.w = Oo 2. LOCATE thi. 
Lew PRINT CHRS CLS) a oNexX? wis RETURN 

SCN 7s SLE yee See ON ey SO ee a ERG ANE 1h 
ee lose eG ired at) Is) ROR w= OTs teas) Ee ATE as 

wtx,21 s FRINT CHR#(207) : NEXT w 

PSon FOR w = © 710 3 2: LOCATE i+wtx,22 3 -F RINT CARS 
Clete ke ewe ep eNO ATE wlth ace Seat) PONG Cte aks 
EAE ATE oA psa con ohare (GHREW2O2). 2 2 eles xen 6>OR ax = 
Tee REN wae. 

S26 GOSUB S50 : GOSUB 540 


co 
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So7 be xS=el Ib STHENS PEN SS sr IN Sco se PORRiNy es Oe, 

O 2 sQEOCATE Ligeitnver (PRIN ChRSc20o ee FOG he: 

Syecltnyv fs FRING GHREC211) 2 INEXO) wveee PENS 7] <a GN 

7,24 

328 NEXT x 

329 RETURN 

540 FOR w = 0 TO 3 : FOR ww = 0 TO 2 : LOCATE i+wt 

x y2itww : PRINT CHR#(32) : NEXT ww : NEXT w : RETU 

RN 

27OCPOR ss = 01 10) 2) s SOUND Tala Sector Sas men eee ed 
TO 10089 SNEXTee s° NEXT'ss? s (RETURN 
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PHRASE 


PARENTS- this is a program to aid language development, and improve and extend 
vocabulary, by selecting a single word to replace a given phrase within a sentence. 


CHILDREN- at the top of your screen you will find ten words within a box. 
Underneath the box is a sentence with part of it in capital letters. Your screen will look 
like this:- 


seldom recently 
century population 
released unaided 


visible ainless| 
emigrate p ee 


After six months in gaol the prisoner 
was GIVEN HIS FREEDOM. 


? 





Your task is to choose a word from the box to replace all those words in capitals. When 
you have chosen your word, type it into the computer and press the |SIN@@aisy key. If you 
are right, you will be awarded a star. Can you collect ten stars? Have a go! 


TYPING TIP 


In the DATA lines (500 to 890) you will notice some extra large gaps between certain 
words. Make sure that you leave all these gaps when typing the lines in. These spaces 
are necessary otherwise, when the sentence appears on the screen, words will become 
split. 


PROGRAMMING HINTS - RESTORE 
Using the word 'RESTORE' will send the reading data pointer back to the beginning of 
the DATA, so enabling the Data to be used again in a READ statement. RESTORE 500 


would send the reading data pointer to line 500. This enables any set of DATA tobe read 
by giving the line number at which the Data begins after the RESTORE command. 
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10 REM phrases 
12 EES 

14 RESTORE 

15 DIM sent#(39) =: DIM word#(39) 

20 FOR a = O TO 39 

ZO READ sent#(a) : NEXT a 

40 FOR b = 0 TO 39 

50 READ word#ib) : NEXT b 

90 good = 0 

100 IF good = 10 THEN LO 

OCATE 3,14 : PRINT "WE 
Reo END 

LOS a Clon see SOR DE Resa ose ior yn tela nieen 

110 pro = INT (RND*40) 

120 GOSUB 200 : GOSUB 380 

122 IF good = 0 GOTO 120 

125 GOSUB 475 

120 PEN Ses UNREt.6 2: LOCATE 1516 2: 9PRING sents pir 

oO} 

140 LOCATE 9,29 : INFUT ans 

150 IF ans# = word#(pro) THEN GOSUB 240 : GOTO 100 
f6o) LOCATE 22s Ore qe mee) et ear irc ilies Neu mme eraence 
NEXT q 

165 SF OR Ge=— 1) 1OlesOo0ss NEXT “tes sSb0TOs Leo 

200 INK 2418 2 (FOR ces © 0esae5 SLOEATE 4t+e,se : PR 
INT CHR#(140) : LOCATE 4+c,9 : FRINT CHR$(131) : N 

Eee 

210 FOR d = 0 TO 4 : LOCATE 4,4+d :PRINT CHR#(123) 
| EOCATEgS7, 4+ 7s “PRINT (ChRs (lee INE Xie 

320 RETURN 

S400 SOUND vos Osos Geri ee LINierc con ee tra seseraaea 

1OVS6 7s LOCATE. tte, 2 FOR R UN a gece tess bie else ites 
Uae "3 MEXT e 

TIN Ne Deeg peg Cone rte CV fem edn essere ees) Cre 

ed OF ei Raila CCC me LRH Ate: ar 7 nt et decors rabeop NIT eee 

sen Meee st 

3260 good = good + 1 : RETURN 


380 g = INT(RND*40) : h = INT(RND*¥40) : j = INT (RN 
D¥40) : & = INTCRND*¥40) : 1 = INT (RND*¥40) 

3B5 m = INT(RND*¥40) : n = INTC(CRND*40) : o = INT (RN 
D*¥40) : p = INT (RND¥40) 

390 IF g = h OR g = j ORg =k ORg =10Rqg =m 0 
Rg =n OR g = o OR g = fp THEN 380 

392 IF h = j ORH =k ORH =1 OR H =m OR H=0 OD 
Rh =o OR bh = p THEN 380 

394 TF. 3 =k OR 3. = 2 OR =m OR ton ORs = com 
R 7 ="p° THEN S80 

S96°IF hk = TCGR®R -="m “ORT Re=9n- OR ke = 1G ORS ES = "5 a 


HEN 280 
S9B0TR 1 ="n @R*1 


tl 


n OR 1= 0 OR 1 = p THEN 380 
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400 IF m = n OR m = o OR m = p THEN 380 

402 IF n = o OR mn = p THEN 380 

404 IF o = THEN 3806 

410 ps = INT (RND*5) 

412 ON FS GOTO 415,425,435 ,445,455 

415 LOCATE 6,4 : FRINT word#(pro)s" “sword#(h) 5: 
EGEATE 7 jas BRENT (werd? (jie swordsck?) 

416 LOCATE 10,6 : FRINT word#(g)3" “sword#(m) : Lb 
OCATE 6,7 : PRINT word#(n)3" "sword? (oa) 

417 LOCATE 8,8 = PRINT word#(p)3" "“sword#(1) : RE 

TURN 

425 LOCATE 6,4 : FRINT word#(n)3" "“sword#(h) >: LO 

GATE 7,5 = FPRINT word#6j)3") -"“swords (ke) 

426 LOCATE 10,6 2 PRINT word#(g)s"> "sword#(m) : Lb 

OCATE 6,7 : PRINT word#(prodjs" “sword (o) 

427 LOCATE 8,8 = PRINT word#(p)s" “sword#(1) +: RE 

TURN 

4265 LOCATE 6,4. 3 PRINT word#(n)3" “3word#(h) : LO 

Soiwleefgass PRINT wordt (oR “swords ti) 

426 LOCATE 10,46 : PRINT word#(pro);" “sword#(m) : 
BGCAIE 6,7 -s: FRINT wordttg) ss words (o) 

437 LOCATE 8,8 : PRINT word#(p);" “sword#(1) : RE 
TURN 

445 LOCATE 6,4 3: FRINT word#(n)3"” “swordt(h) +: LO 

CATE 7,5 : FRINT word#(pro);" “sword#(k) 

446 LOCATE 10,6 : PRINT word#(j)3"  "“sword#(m) =: L 
OCATE 6,7 : FRINT word#(g)3"  "“sword#(o) 

447 LOCATE*S 8 © PRINT werds¢tpro}e 9 "3 wordt (1) —: 
RETURN 

455 LOCATE 6,4 : PRINT word#(n)3" “sword#(h) =: LO 
CAlee 7 goer iN words Cos = Menwoict Ck) 

456 LOCATE 10,6 : PRINT word#(j)3" "“sword#(m) : L 

ODCATE 6,7 : FRINT word#(g)3" “sword? (pro) 
AS(eeOGriE. .0 os) PRU NiaWwoRe Goji “Uswomds cl ese Re 

TURN 


fyi Obani E wt. shares POR tr 1 TO good 

chee Omer hp emeee uses Sen MUNI Cuts us rea ERN 

3020 DATA Michael did all his English work WITHOUT 

A SINGLE MISTAKE. 

319 DATA The batsman scored ONE HUNDRED RUNS. 

S20 DATA In Britain many animals FASS THE WINTER I 
MO SEEER:; 

520 DATA The policeman stopped the traffic for t 
he FPEOFLE WHO WERE ON FOOT to cross the road. 

340 DATA NOW AND AGAIN we go to visit our e 
elatives. 

250 DATA During the GREAT SHORTAGE OF RAIN the i 
ivers and streams dried up. 

560 DATA Several of the FEOPLE WHO APPLIED FOR T 
HE FOST were too old. 


Zi 


570 DATA Mrs. Jones left the house IN A GREAT 
URRY. 

580 DATA The two brothers were INCLINED TO 
UARREL. 

590 DATA The ship could just be seen on the LINE 
HERE THE SEA AND SKY AFFEAR TO MEET. 

4600 DATA The Motor Show is held ONCE EVERY YEAR. 
610 DATA The storms and monsoons left thousands 
# people WITHOUT A HOME. 

620 DATA Every year many people LEAVE ENGLAND TO 
ETTLE IN OTHER COUNTRIES. 

620 DATA There was a large GATHERING OF 
ORSHIFFERS for the Easter service. 


640 DATA At the end of the concert THE FEOFLE WHO 


WERE LISTENING stood and applauded. 
650 DATA The school has a large ROOM WHERE ALL 
HE BOOKS ARE KEPT. 


660 DATA The train arrived in the station DEAD ON 


TIME. 


670 DATA The dentist extracted the tooth WITHOUT 
NY FAIN. 


480 DATA The CHILDREN WHO HAD LOST THEIR FARENTS 
ere cared for by friends. 

690 DATA The children DID AS THEY WERE TOLD 
MMEDIATELY. 

700 DATA After six months in gaol the prisoner 
as GIVEN HIS FREEDOM. 

710 DATA John is HARDLY EVER absent from school. 
720 DATA The ship was no longer TO BE SEEN. 

729 DATA The record is THE ONLY ONE OF IT‘S EIND 
N EXISTANCE. 

740 DATA The work was done OF HIS OWN FREE WILL. 
750 DATA The old lady walked to shop WITHOUT ANY 
ELF AT ALL. 


760 DATA John is TOO FOND OF TALKING in the class 


779 DATA I had a most thrilling experience NOT 
ONG AGO. 


780 DATA Scrooge was a MAN WHO HOARDED HIS MONEY. 


790 DATA Cows and sheep are ANIMALS WITH FOUR 
Serre 

BOO DATA The doctor’s writing was NOT CAPABLE OF 
EING READ. 


T 


WwW 


H 


L 


F 


RB 


610 DATA The big cities of the world have a very 1 


arge NUMBER OF FEOFLE LIVING IN THEM. 

820 DATA Never keep company with a FERSON WHO 
AKES A GLOOMY VIEW OF EVERYTHING. 

20 DATA Misfortunes never worry the MAN WHO 
BOERS” ON JHE ER IGHT  SiDESOr setae. 

840 DATA John was LIKED BY EVERY ONE. 

850 DATA Feter LOOKS VERY MUCH LIKE his father. 
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T 


L 


860 DATA The heat of the sun was MORE THAN -ONE iE, 
OULD REAR. 

870 DATA The accident had left the man INCAPABLE QO 
F SPEAKING. 

880 DATA The survivor told his story IN FEW WORDS 

B90 DATA The man was KILLED BY THE ELECTRIC SHOCE 

900 DATA correctly,century,hibernate,pedestrians,o 
ccasionally,drought,applicants,hurriedly,quarrelso 
me 

910 DATA horizon,annually,homeless,emigrate,congre 
gation,audience,library,punctually,painlessly 

29 DATA orphan, obeyed,released,seldom,visible,uni 
que, voluntarily,unaided,talkative,recently,miser,q 
uadrupeds 

930 DATA illegible,population,pessimist,optimist,p 
opular,resembles,unbearable,speechless,briefly,ele 
ctrocuted 
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SAM CAT 


PARENTS:- this is a program designed to help the four to eight year old to learn simple 
spelling. The program includes thirty words which are randomly selected in the 
program and then flashed on and off the screen four times. The words are printed in 
lower case (‘‘small’’ letters). The child then has to type in the correct word and success 
is rewarded as Sam is built and receives his milk, giving out a satisfactory ‘purr’. If the 
answer is wrong then the correct one is given. When the answer has been typed in, the 
‘aNwMaisy key must be pressed. Success at the end is also rewarded with the tune: 
“Pussy cat, Pussy cat” 

“Where have you been?” 


Remembering the words sometimes causes a little difficulty and a reference card with 
the vocabulary being used can be given to the children to reinforce Sam’s efforts. 


CHILDREN: listen to: 
“Pussy cat, Pussy cat’ 
“Where have you been?” 


and practise your spellings. Build Sam Cat by spelling the words after they have flashed 
on the screen. You must press after you have spelt the word. 


Your screen will look like this:- 


Sam's milk 
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TYPING TIP 


This program is easily adapted for other words, all that is necessary is for thirty different 
words to be substituted in the inverted commas in lines 500 to 520. Do not put more 
than thirty words as the program would not work and more than this is too many for 
children to practise at once. Why not insert in the program the weekly spellings from 
school? This is certainly an enjoyable way to learn. 


PROGRAMMING HINT - MUSIC from DATA 

In the program listing, lines 700 to 715 contain the tune:- 
“Pussy cat, Pussy cat’ 

“Where have you been?” 


Type this out separately from the program and run it. You will have the tune. Let’s 
explain what is happening:- 


Line 700 is a REMinder to show the program that follows. 

Line 702 RESTOREs the DATA reading pointer to the beginning of the DATA, which is 
line 710. 

Line 705 instructs the computer to READ two DATA statements. 

Line 706 is an IF statement so that when -1 is READ the program RETURNS to the next 
statement after the GOSUB. This music program is on a subroutine, so will RETURN to 
the section of the program from whence it came. 

Line 707 substitutes each of the two READ statements into the SOUND command and 
then sends the routine back to line 705 and the next two RE ADings fromthe DATA. The 
readings are in pairs and represent the musical note and the length of the note. 
Lines 710 and 715 contain the DATA to be READ. 


1 REM sam 

10 z$ = CHR#(1425)+CHRE(143)-3 x = CHRECS2) +CHRE CS 

Seth eaten (a) 

20 DIM w#(29) 

Uefa eg Ome erent ey Oost ie er mere OL IN cae shen ya) eo raters inion. TEC 
ae RE Nate LIME ss eet 

20 WINDOW #1,1,40,1,20 

35 WINDOW #2,1,40,21,25 

28 WINDOW #2,1,49,1,25 

59? WINDOW #4,1,7,10,16 

S05 BORDER Oss ~FAPER (O-: CES: He 

POMSOSUE sores GOSUB S00). IGBSUB 220s s. SOSUBY Seba: 
SOSUB’ 54052 GOSUE) 250": .GOSUB 260 

7a GOSUBY S70) 2AG0SUE Se0ns GOSUB: 296 

moe EA lest ,doee a PRIN Tel. "oS sar Ec Ack? 
SOMME TE) reste on feral Ne de oohie Ble Bg ieaieoals te) 
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SAM" : PRINT #2 : PRINT #2,"A N D LEARN 
NiO UIERRS Wo GBR) Dost 
85 GOSUB 700 
FOR EOSUBA SOO, gia 
S92) CLS #5 
93 GOSUB 420 
95 a = INT (RND¥20) 
TOS" FOR 1b = 1 T0e4es 9GES 42 roe — aot oe. NM 
Eales 
110 PEN #2,2 : LOCATE #2,18,3 2: PRINT #2,w?(a) 
TES OUND legs as 
11S ROR a= SOOO a NEXT ba. NEA ; 
120 CLS #2 : LOCATE #2,18,23 : INPUT #2,ans# : FOR 
ta=— ee OF S007: NEX I 
130 IF ans = w#(a) THEN q = q+ 1 : GOTO 200 
{SOPCMOECATE THE, T8555 PRINT #2iwltay = POR & =e 
2000 G29 NEXtatiit GOTE 2s 


200 IF q = 1 THEN GOSUB 300 
202 IF gq = 2 THEN GOSUB 310 
204 IF q = 3 THEN GOSUB 220 
296 IF q = 4 THEN GOSUB 320 
208 IF q = S&S THEN GOSUB 240 
210 IF q = 6 THEN GOSUBs 350 
212 IF q = 7 THEN GOSUB 360 
214 IF q = 8 THEN GOSUB 270 
216: 1F q = 9) THEN GOSUE Seo 
218 IF q = 106 THEN GOSUB 390 : GOSUB 450 : GOTO 25 
O 


230 GOSUB 450 : CLS #4 : GOTO 95 

250 CLS #2 : LOCATE #2,1,2 : PRINT #2,"Sam says th 

ank you. He has all the milk that he needs." : FOR 
l= Siete 20m BORDER sLNi (RND e278 SOUNDS ec eel Ong 

Ges ROR Ca Ty iG See Xai ey IN Bes ete oes (0 sy er tart 
7 END 

300 REM face 

ees PEIN RR gS ale iGO Fete CTs as ses Gad coer Cc ca rte cs Po 

OCATE FL lot, otinesPRENT #1, GHRS (PASS NE Ne mrs 

NEXT n 

SO7 ROR in =O TORS 2 FOR m= 1 Tees SoG ate ra 

+o, dorm, = RINT +4 CHR Casiiess NER os) NE Xan ot 

308 LOCATE #1,15,15 : PRINT #1,CHR# (213) CHR# (1435) 

: EGCATE Hi t4 sls = PRINT 41 (6GHRe Crs *ssEOEATE THT 
y2o_gl5 s PRINT #1,CHR# (142) CHR#(212) 3: LOCATE #1,2 

oral Cheese FoR lie arr dinate rethences Gomes tane) 

309 RETURN 

210 REM left ear 

S15 FEN #1,3 3: LOCATE #1,16,4 : FRINT #1,CHR# (214) 

CHRE(21S5) 2: LOCATE #1,15,5 =: PRINT #1,CHR#(214):24 
~GHR Ce Loo: ss ME mUEh 

se0 REM right ear 
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sco PEN #1,3 s LOCATE #1,22,4 : PRINT #1,CHR#(214) 
CHR# (215) : LOCATE #1,21,5 : FRINT #1,CHR#(214) 324 
TEARS (ers) = RETURN 
S20 REM left eye 
occ FEN Gade ROR = O21 2 sy POR fo =-O.TO. 1 sas k 
QCATE #1,16+b,8+j3 : PRINT #1,CHR#(143)-: NEXT j : 
NEXT Ok s REGURN 
340 REM right eye 
Societe ORE a= O TOo2s:eFOR 4 .=.06TO) 1-3. k 
OCATE #1,21+k,8+j : FRINT #1,CHR#(143) +: MEXT j : 
NEXT k : RETURN 
250 REM nose 
So BENS ol) gs sLOGATESH), 193 bis seFRINT 415 222 SkOG 
Ail sd hos a a PRINT #1 524 
208 PLOT 203 5208,0. : DRAW 203,192,0 : RETURN 
360 REM mouth 
Soo0 PeNetin to LOCATE die? lsat FROIN He CHREGeOr 
>) +: LOCATE #1,17,14 : FPRINT #1,CHR# (207) CHR#(207)C 
HR (207) CHR# (207) CHR# (207) CHR#E (207) : LOCATE #1,22 
ees ened td GHREK 2O7 ss) RETURN 
370 REM whisker 
Sr mONGi a= eco: Ol cet Pi Ome Oi 2c. hi comma), 
RAW 4359,h,2 2: NEXT h : RETURN 
580 REM whisker 
RS odie See ee hed cet eer Vite eee dy Le ieee es Pils, coasts 
RAW 145,h,2 : NEXT h : RETURN 
390 REM tie 
ao eM tl, 2 = LOCATE #Loi7,17-2 FRINT. #1, CHRSe (204 
)gez#s rts CHRE (215) 
AOO mrt Nat Lye section Gee: Ons On 2 ce iO Hae Or TO Wess. ste 
QOCATE #1,15+g,18+f =: PRINT #1,CHR#(143) : LOCATE # 
ipeer. ott Sori #1 CHR Cras): os NE fo: INE XT Gg 
405 FOR f Or Gort LOCATE, Shiv +f she) FRONT aba. 
CHR#E (140) LOCATE #1,18+f,19 : PRINT #1,CHR# (131) 
Pet kon f RETURN 
420 FEN #1,1 : LOCATE #1,23,17 : PRINT #1,CHR# (139) 
SoG Piles Hl Po LZ tech lee te dig Col ee) 
425 LOCATE #1,3,18 : PRINT #1,CHR#(1238) CHR# (22) CHR 
# (33) CHR# (32) CHR# (32) CHR#E (22) CHRE (133) : LOCATE #1 
92,19 : PRINT #1,CHR# (130) CHR# (131) CHR# (131) CHRE (1 
S11) CHR# (121) CHR# (121) CHR# (129) 
30 PEN #1,2 : LOCATE #1,1,20 : PRINT #1,"Sam’s mi 
eer En Uh 
450 REM bottle 
455 LOCATE #4,1,1 : FEN #4,3 : PRINT #4,2%32%;3 CHR? 
(140) : LOCATE #4,1,2 : PRINT #4,2%32%;CHR#(131) : 
FOR v = 0 TO S&S : LOCATE #4,46,2+v : PRINT #4,CHR# ( 
sol) : NEXT v 
460 FOR vv = 6 TO © STEP -1 : SOUND 1,758,20,vv : 
Fine terse Tol edisth se) INE Xelh cs NE KE ov 


133 


462 LOCATE #1,4,18 : FEN #1,3 : PRINT #1,2#:2%; CHR 
£'( 24S) eet LOCATE #1, 225.1402  PRENT Sei piu on Pk ie 
4AéZ LOCATE #1,232,14 : FPRINT #1,x2 

465 FOR t i TO FOOSE Wiese RESiUIEN 

S00 wt (0) Nand” 32 wei) = “he” £ weCcey = Fehrs” 

: wk(S) = "the" : w#(4).= "in" ¢ we(S) = “is 2 wt 
(6) = "playing" : w#(7) = "at" : w#(8) = "are" : w 
#£(09) = "am" 2: w#(10) = "a" 

SlO wt(1i) = “home” F we(1l2) = “girls we(iay =" 
garden" : wt(14) = "mummy" +: w#(15) = "daddy" : we 
(16) = “baby" : w#(17) = "boy" : w#(18) = "house" 
Hews GLSR T= Swick 9 ee ws Ceo = petite 

S20 w#(21) = "walk" : w#(22) = "man" : w#(25) = "w 
hat" : wt(24) = "nice" : wk(25) = "they" : w#(26) 
= "shop" : wt(27) = "went" =: wt(28) = "was" : w#(2 
9) = "some" 

a25 RETURN 

7OO REM music 

7O2 RESTORE 

7O5 READ e : READ d 

706 IF e = -1 THEN RETURN 

7O7 S0UND- 1 ,e5d,6 2° CONO705 

PLO SDAA AS gi 2 aly ig tg? gictaity Ole Wt a oe pAb Coy le eto emmy mre cy 
pM tchig Need g ahaa Ol meds) cena hc) g Olan le CREEP my eevalee) wi Clie ae el caranen cl ie Cle 
MCT Sed Pg cae eile lg WOON eres Ae alge) eC wi /P reseed es CMa E Clig e Renner sillier: LO) 
LN grea ced CP a AC) apse AP einen mL Nene tay yy ee ON aye ape eee wc Ol nO) we) ea 
aera ale IM oye aL Be tere 

715 DATA 0,10,253,40,0,10,319,100,0,10,=1,-1 


ee 


oil 
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MISS HOMONYM 


PARENTS - this is a program designed to give practice with homonyms, help develop 
language and extend vocabulary. 


CHILDREN- in this program you will meet Miss Homonym and, at the same time, 
test your knowledge and understanding of homonyms (words which sound the same but 
are spelt differently). The program includes fifty pairs of homonyms but Miss 
Homonym will only test you on ten of these at any one time. A word will appear on a 
blackboard and you must type the corresponding homonym. Remember to press 
[SENGHSR) after each word has been typed onto the blackboard. A correct answer pleases 
Miss Homonym who will flash her eyes at you. An incorrect answer will make her 
shake her stick whilst she tells you the right word. Your score will be given on the 
blackboard. 


Your screen will look like this:- 











Good luck..... and try to please Miss Homonym!! 
TYPING TIP 
The program can easily be adapted for fifty more pairs of homonyms. All that has to be 


done, is for the DATA lines (500 to 530) to be erased and for new words to be 
substituted. 


i355 


PROGRAMMING HINT - DIM 


This 


command is used in many programs and indicates an array or matrix of variables. 


The DIM command will allocate space for all the variables in an array. For instance, 


line 10 of the program reads:- 


10 DIM h$(49) : DIM g$(49) 


The two DIM commands each reserve space in the memory for 50 variables. The first 


50, will have the names 


h$(0)...h$(1)...h$(2)...h$(3)........... h$(49); and the second 50, will have the names 


2$(0)...g$(1)...g$(2)...g8(3).......0.. g(49) . 
An array starts at 0 so DIM h$(49) will have 50 items Haribered 0 to 49. 


It is good programming practice to declare all the arrays at the beginning of a program. 


1 REM miss homonym 

LOO DEM ha C49 )s sD itl sas C45") 

12 ke = CHRE(210) +CHR# (210) +CHR# (210) +CHR#(2310)+CH 

Re (S10) +CHRS (210) 2 jf = GCHRE (32) +CHRE(S2) 2 meo= 

CHR# (208) +CHR# (298) 

14 ef = CHR#(32) +CHR# (32) +CHRE C32) +CHRS (32) +CHRE 6S 

2)+CHRE(32) +: £# = CHR# (32) +CHR# (32) +CHR# (32) +CHRE 
(SZ) ¢ be = CHRe (214)+6CHREK209,7 

15 WINDOW #1,1,40,1,25 : WINDOW #2,22,40,2,14 : WI 

NDOW S33, 2, ee 

20 PEN 2 Ome STN Gime er iN ssa ets lateae sale es emcee nM te 
2 O ec N seoye te LIN oS 

30 FOR a = © TO 49 : READ h#(a) : READ g#la) : NEX 

Ta 

so CES i> s GOSUBRRE OOP: LOCATE Heyy 2 ar eRe Mit ote ne 

HOMONYMS-—-words which sound the same but are 
spelt differently." 

37 GOSUB 480 

4G (GES Hl) sof o = i een = One FOSUR SOO Ss EPSIbe ase 
45 CLS #2 

47 IF m = 10 THEN GOTO 496 

60 d = INT(RND*¥50) : m = m + 1 

70 c¢ = INTC(RND*¥2)+1 

7a ON GOTO oe. 20 

100 FEN #2,3 >: LOCATE #2,2,4 : PRINT #2,h#(d) 

110 PEN #2,1 :LOCATE #2,2,6 : INPUT #2,ans¢# 

120 IF ans# = g#(d) THEN GOTO 400 

130 PRINT #2,"No, answer is" : PRINT #2,g#(d) : GO 
SUBMSa0 

140 GOTO 45 

200 PEN #2,5 : LOCATE #2,2,4 2 PRINT #2,q#(d) 

210 FEN #2,1 :LOCATE #2,2,6 : INPUT #2,ans# 
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220 IF ans# = h#(d) THEN GOTO 400 

230 PRINT #2,"No, answer is" : PRINT #2,h#(d) : GO 

SUB 350 

240 GOTO 45 

ZOO PAPER #2,2 : CLS #2 : PLOT 375,0,2 : DRAW 295, 
176,2 : DRAW 410,176 : DRAW 390,0 : DRAW 375,0 | 
310 PLOT 610,0,2 : DRAW 590,176,2 : DRAW 575,176 : 
DRAW 595,0 : DRAW 610,0 : RETURN 

S50 PEN #3,2 : FOR r =1 703: FOR qg=0OTO5:L 

OCATE #3,13+q,16-q : PRINT #3,CHR#(204) : NEXT qi: 
GOSUB 370 : FOR q = © TO 5 : LOCATE #3,12+q,16-q 
: PRINT #3,CHR#(32) : NEXT q : GOSUB 270 


355 FOR q = 0 TO 7: LOCATE #3,13+q,16 : PRINT #3, 
CHR#(210) : NEXT q : GOSUB 370 
360 FOR q = 0 TO 7: LOCATE #3,13+q,16 : PRINT #2, 
CHR#(Z2) : NEXT q : GOSUB 370 : NEXT r : RETURN 

1 


270) SOUNDS SBS se 20s, Octo 0s FORYty= TO 200 : 
IE alee Ue ie is 

S00> ta tat ot oe POCA Pete a2 se sR UNtietewd . 2 2OC AT 
E #2,10,9 : PRINT #2,CHR#(154) CHR#(154) =: LOCATE # 
Boy Se Oe eR ea 

405 FOR p = 1 70 5 

407 LOCATE #3,7,5 : FRINT #2,f# : GOSUB 440 

409 PEN #3,1 : LOCATE #3,7,5 : FRINT #3,CHR#(126); 
j#3;CHR#(122) : GOSUB 440 

410 NEXT p 

415 GOTO 45 

440 SOUND 1,478,20,7 2 SOUND 2,5034,20,5 : FOR t = 
ty TOn 2000S NEAT st 2 RETURN 

450 FEN #3,1 : PRINT #3,TAB(6)3;k# 2: PRINT #2,TAB(7 
);CHR# (204) 5 3#;CHR#(205) 2: PRINT #=,7TAB(G6) ; CHR# (20 
4)3 j#3 j#3 CHR (205) 

452 PRINT #3, TAB(4) ;CHR# (143) CHR# (208) CHR# (205) CHR 

+ (2704) CHR# (208) CHR#(145) : PRINT #3, TAB(6) ;CHR#(14 
3) CHR# (126) 3 j#:CHR# (122) CHRE (143) 

454 PRINT #2, TAB(4) CHR# (142) CHR# (32) CHRS (120) CHRS ( 
129) CHR# (22) CHR#(143) : PRINT #3,TAB(S) sCHR#(145)C 

HR# (145) CHR# (210) pn#: CHR (210) CHR# (142) CHR# (143) 
456 PRINT #2, 7TAB(7) sCHR#(204) 5 j#;CHR#(205) 2: PRINT 
#35, TAB(S) sCHR# (204) 3 j#3 JF; CHRF (205) ¢ PRINT #2,TA 
B(S) sCHR# (204) 3 e#; CHRE (205) 

458 FOR k = 0 TO 4: PRINT #2,TAB(S) ;b¢;f#;b* : NE 
XT k 

459 FRINT #2, TAB (S) s CHR# (207) s CHR# (207) 3 #3 CHR# (20 
7) CHRE (207) 

460 FOR k = © TO 3 : PRINT #2, TAB(S) s CHR#(209) ;eF; 
CHRE(211) =: NEXT k 
462 PRINT #2, TAB(CS) 
464 FOR k = © TO 2 
CHR#(2306) : NEXT k 


CHRE (209) ;k#;CHR# (211) 
PRINT #2, TAB(7) sCHRE (206) 3 i#3 
PRINT #2, TAB (4) ;CHR# (206) CHRE 
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(206) 3 j#3 CHR# (206) CHR# (206) 


468 RETURN 
480) FOR t = 4. 70 250007 1NEXT Ct 2 RELURM 
490 CLS #2 : PRINT #2," You managed" : LOCATE #2 


,o,0 SoOPRIND te, + = LOCATE 42,9 6° 3 ERIM Fe chke 
154) CHR#(154) : LOCATE #2,8,7 : FRINT #2,"10" 

495 FRINT #2,"Type run for ten more words" 

497 INPUT #2,a% : IF at = "run" THEN RUN ELSE END 

290 DATA muscle,mussel ,pain,pane,pause,paws,peace, 
piece,peel ,peal ,place,plaice,plain,plane,plum,plum 
b,profit,prophet,prey,pray 

519 DATA roll,role,rye,wry,sail,sale,tail,tale,the 
ir,there,sew,sow,site,sight,tied,tide,vale,veil ,wo 
od,would,thyme,time 

320 DATA waist,waste,beach,beech,aisle,isle,holy,w 
holly,air,heir,allowed,aloud,bail,bale,ball,bawl,b 
are,bear,berry,bury,berth,birth, boar ,bore,bough,bo 
w, boy buoy, sea, see,cellar,seller,cereal ,serial 

320 DATA sun,son,dear,deer ,die,dye,earn,urn,fir,fu 
r,flew,flue,foul,fowl ,mare,mayor,meat,meet,our,hou 
r,idle,idol ,made,maid 
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LAUNCH-A- 
ROCKET 


PARENTS- this is a fun program to test, practice and improve times table skills. 


CHILDREN: build your space ship and travel to Mars. The program begins by giving 
you a choice of times tables to practice. You can test your memory with any table 
between | and 10. To help you, the program will show you the whole table to be tested 
and your screen will look like this:- 


6 TIMES 
TABLE 


OnP Why — oOo 
DPOWODODDMM | HD OH 
Hitt ttt 
on 
RESSSRAG7S 


é 


<x <x KKK KK KK x 


Press any key to continue 


-o con 





Each time you give a correct answer, your rocket will gradually take shape until it is 
complete and you reach “Blast Off” time....then away you go.... the intrepid explorer to 


Mars. 
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After each answer, you MUST remember to press the key. 
SAFE JOURNEYING!!! 
TYPING TIPS 


Make sure in line 15 that d$ =“ _”’ has five spaces and that e$ = “ * has 
twenty-three spaces. 


PROGRAMMING HINTS - STRING VARIABLE 


On several occasions in this program it was necessary to print spaces so rather than 
write each time: 


10 PRINT " Pt 
or 10 PRINT " " 


it is more convenient, less tedious and better programming to put this in a string 
variable, hence line 15 has d$ =" "ande$=" 


When the program requires 6 or 23 spaces, the command will read 
PRINT d$ 
or PRINT e$ 


or PRINT “He Glos dS" Diads 
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Try this short program:- 
10 d$="John Smith": es=" " 


20 PRINT "Hello";e$;d$ 


10 REM launch-a-rocket 

Ae dat = u mn s ef = u um 
fo) BORDER 7 is IAPER =O Sesrnik On - FE 
eo GSS ss FOCATE: 7, cy PRIMERS ASUSWN 
en ene. 

a0 LOCATE: 12,9" :— PRINT "YOUONEED 10: TABLES" 


Net KE 
Cb Ar oR 


40° LOCATE, 1S 1) s SPRINT! CORREET TOSBUILDY) = LOCAT 


Peels oon Mie AND> PRE =V@uUR ies, LOCATE Lose = 
RGN ROCKET 


F 


HO) LOCATE: S555 :ePENSease INES 2d « FRENT Which sea 


ble do you wish to practise?" 

460 LOCATE 12,202 PRINT “(Tables 1 to 10)" 

POS POENTE Wo, 22 4 FEN 1s TINK tae sh Ne Ul ox 

vo Ces Os ANDS x= “ile THEN oo 

80 LOCATE 9,23 : PRINT "I said between 1 and 10" 
FOR Cte d TOVS500" s= NEXT t 

BarLOECATE 16,22. :7F RIND @tp eee OCAtke 9 ests: PROUNT 

Ses owns) 70 

LOO BORDER? Or: ; ahs OF 0) RG FENS 23s INV 18 

His CLS : PEN 2 = aN? Se267 se LOCATE lat 

P20 FORM e> =s 0570 ;10-8 aRINTs= TABS) ash eX Cl sacs2 = 
paex 2 PRINT : GOSUB 300, :7 NEXT. a 


Pacere hades iNe Se OCATE ear ta RINT Hs Pees 


So EDEATER SG7 (4 PRENT ¢raABieeES 


130 LOCATE 11,25 : FRINT "FPress any key to continu 


ee 

135 at = INEEVS = IF at = “" THEN! 135 

SO. CiSas BORDER © = IPAPERSO} forINKs G5 14 

155 correct = 0 

160 c = INTCRND#¥11) : GOSUB 220 

LOO MOEAnEs Seer PENNE ee NS aire PRL NT cs te Xo" 


180 LOCATE 3,3 : INFUT ans 
185 IF ans <> cx*x THEN 250 
196 LOCATE 3,5 2: PEN. 2 2: INK 2.26" :77RRINT “Goad? 


aie 


oy 
195 FOR t = 1 TO 1000 : NEXT t : correct = correct 


+ 1 


200 ON correct GOTO 400,405,415,4350,445,450,475,49 


0,505,520 


250 LOCATE: S,4 2 PEN 2:20 INK 23926 «PRINT> “Sorry* 
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252 LOCATE 3,5 : PRINT “answer is “3c*x 
254 FOR t = 1 10 3000 = NEXT it 

260 GOTO 160 

300 SOUND 1,1607,50,6 : FOR t = 1 TO 500 : NEXT t 
: RETURN 

220 LOCATE 1,1 : PRINT e# : PRINT e# : FRINT ef : 
FRINT e# : FRINT ef : RETURN 

400 LOCATE 18,6 : INE 1,6 : PRINT CHR# (209) CHR (el 
1) : PRINT TAB(18) CHR# (209) CHR#(211) 2: FRINT TAB(1 
8) CHR# (209) CHR# (211) 

402 GOSUB 300 : GOTO 160 

405 LOCATE 18,9 : INK 2,26 : PRINT CHR#(214)CHR#(2 
Les) 

410 LOCATE 17,10 : PRINT CHR#(214) CHR# (143) CHR# (14 
2) CHR#(215) : GOSUB 300 : GOTO 160 

4i5 INK 2,26 22F0R’ #7= GTO Set FOR g° = OF Te a ee 
OCATE 17+#,11+g : PRINT CHR#(143) 2: NEXT g : NEXT 
+ 

420 GOSUB 700 : GOTO 140 

430 INK 2,26: FOR = 0. TOS) 5) FOR TQ? =" OOTOe Ss Be 
OGATE 17+f,17+g + PRINT CHR (14205 22 NEX} ge: NEXT 
£ 

435 GOSUB 3200 : GOTO 1460 

AAS INK 2,26 : LOCATE 16515 scFRINT CHREC214) EO 
CATE 15,16 : PRINT CHR#(214) CHR# (142) 

446 FOR ¢ = 0 TO 1-: FOR) Gg =*Oe1O*s* "EREATE tarts 
[7 +o: BRON) HR. Gl 4S ease Xie Pee © 

447 GOSUB 300 : GOTO 160 

ASO CINK 2,26 Fo LOCATED 21.145 FP RINM CORE (21S) eee 
CATE 21,16 : FRINT CHR#(142) CHR# (215) 

450 FORE T=" O70 ee FORegr = 0m Ss Seb Ane 21s. 
17a os SPR EN GCHRS Cl 4c) sees NEST © cits NES eieete 

460 GOSUR 300 : GOTO 1606 

47a PENS -2 DINE 2,19 3, FORSfS—)O TOP EoeAle ia. 
12+f se PRONT (CHR C1 4S) 2 L@EGATE 1S) 16+ PRINT -CH 
R#(145) 2: NEXT f 

480 GOSUR 300 : GOTO 160 

490SFEN “os INK ol iGe te ROR? f= OO 2s Seba re oat 
soo 2 PRINT CHRS (204): EGGATE ott 2c PRIN Chk 
S(20S505 2) NEXT ot 

495 "FOR f-.= OF TR's": EOCATE*tS+f 242 FF RINT CHAE 
O04) : LOCATE 19+f,24 : PRINT CHR#(205) : LOCATE 14 
thy ecd : FRENT SHRS(204)" = EOCATE 2ort, co Serre © 
fee Ge Oa escma Neraleact 

300 GOSUB 200 : GOTO 166 

905 INE 3,19 : ORIGIN 0,176 : DRAW 75,64 : DRAW 10 
3,16 : DRAW 135,16 : DRAW 165,48 : DRAW 195,48 : D 
RAW 254,0 : PLOT 320,16 : DRAW 246,48 : DRAW 406,4 
8 

208 DRAW 4235,0 : DRAW 495,00 : DRAW 540,80 : DRAW 6 
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15,80 

510 GOSUB 300 : GOTO 140 

520 INK 2,26 : LOCATE 24,2 : PRINT CHR#(238) : LOC 
ATE 36,2 : PRINT CHR#(238) : LOCATE 29,3 : FRINT C 
HR# (238) : LOCATE 2,8 : PRINT CHR#(238) 

525 LOCATE 13,8 : FRINT CHR#(238) : LOCATE 9,7: P 
RINT CHR#(238) : LOCATE 32,6 : FRINT CHR#(228) 

520 GOSUR 300 : GOSUB 220 : GOTO 800 
800 FOR m = 1 T0 5 : FOR n = 1 707 
ND¥27) : SOUND 1,1073,20,n : NEXT n 
805 BORDER O : PAFER © : INK 0,0 

810 FOR j = 0 TO 30 : LOCATE 1i+j,1 : PRINT "BLAST 
OFF" : LOCATE 1+j,1 : PRINT “ " : NEXT j 
812 CLS : FEN 2: INK 2,26 : FOR w = i TO 50 : LOC 
ATE INT(RND¥29) +1, INT(RND¥24)+1 2 PRINT “*" : NEXT 


BORDER INT(R 
NEXT m 


w 

815 PEN 1: INK 1,6 : FOR p = © TO 24 : LOCATE 20, 
25-p : PRINT CHR#(239) : FOR t = 1 TO 50 : NEXT t 
: LOCATE 20,25-p : PRINT CHR#(22) 

817 SOUND 1,804,10,5 : NEXT p 

820 LOCATE 14,12 : PRINT "EN ROUTE TO MARS" : END 
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PERIODIC TABLE 


STUDENTS- This is an extensive program which not only can be used to test your 
knowledge of the chemical elements but can also be used as a reference. Areas covered 
are the names of the chemical elements with their symbols, atomic numbers and atomic 
masses. 
The program begins by showing you a menu of seven alternatives:- 

1) the brief history 

2) the name, symbol, atomic mass or the atomic weight of any element 

3) the Periodic Table in Period groups 

4) the Table of Transitional Elements 

5) the Table of Rare Elements 

6) The Actinide series of elements and the artifical or man-made elements 


7) test your knowledge of the elements. 


Points = 10 
Question 4 





























Atomic Number is 45 
What is it's name 
? a 
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TYPING TIP 


This may be a long program to type in but it is well worth persevering, after all, there are 
seven programs in one here! Copy your data out, with spaces, commas, upper (capital) 
and lower (small) case letters. In line 12 make sure that e$ has 6 spaces and f$ has 5 
spaces. 


PROGRAMMING HINT - a$ = INKEY$ 


Throughout the listings in this book you will recognise the command:- 
415-aS = INKEYS =_FE-ag$-— "" THEN 415 


This line (the line number will of course vary) instructs the computer to wait for an entry 
from the keyboard and is useful if you want to hold a program at a given point, whilst 
perhaps information is read from the screen. After a key has been pressed, the computer 
responds according to the program instructions. If no key is pressed (i.e. a$ gives an 
empty string shown by "" ), then the program returns to the beginning of the line and 
waits. 


1 REM periodic table 

Op TD Hikes tO ren IGM do Mel ss se Meee OF aM) clr 
102) 

12 ef = '" oureeepy Sie" y 

20 FOR e = O TO 1023 

2o READ ate) : READ b#¥(e) : READ c#(e) : READ dite) 
Z0 NEXT e 

Ounces gs ME Ie Oars sa EN 2 Se eM Se os tis, Eas: Ss) enn 
feos 2 On ee EN cOu sal Nk On 0S 

SQ CLS : GOSUB 450 : GOSUB 4890 

200 WINDOW #1,1,18,6,25 

202 WINDOW #2,19,40,1,25 

204 WINDOW #3,1,18,1,5 

oc, GLSstla: (GClShs 2 -CLSetets) BORDER 0 3 FarPER #1 
7, PARER #26163 “PAPER -#S sl 

298 GOSUB 750 

229 GOSUR 900 

250 PRINT #2,"You have had 15" : PRINT #2,"questio 
ns." 2: PRINT #2,"You scored "sri: PRINT #2, "points 
." : PRINT #2,"You will now return tothe menu." 
255 POR 4 = 1-10 4000 2 NEXT & 40 GOTO 480 

aig) GlieS a BORDER 87 RARER fae PENGS 32 SERONG rhe 
Actinide and Artificial Elements" : PRINT : GOSUB 
660 2oF RINT »cPENcO 2°FOR ¢ =-88 TO 102 --FRINT ac 
ff) efSe bs (4) efFrch(fostFsd(f) : NEXT f 2 GOSUB 600 
: RETURN 

300° CUS ss (BORDER ees PAPER oh 2. (PEN Sen ERIN) s "Tab 
le of Rare Earth Elements" : FRINT : GOSUB 4620 
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305 PEN O : FOR # = 56 TO 70 : PRINT a(f);f#;b#(#) 
pf#ic8(f)s4$3d(4) : NEXT # : GOSUB 600 : RETURN 


So0eCY Sesce- BORDER -S atmo POPE Rie Desid FEIN see perc Relig cele 

e of Transitional Elements" : GOSUB 6270 : FOR f = 

20 TG. 29. 3 GOSUB 620 SSNExXT= +: (FOS E Soe 

Soa1 CLS +: BORDER & = PAPER-1- = PEN 2: PRIM “Siabl 

e of Transitional Elements" : GOSUB 630 : FOR f = 

50 NOe47 + GOSUB "620s NEXT] seGOSUR]6On 

Soe Ceo de BORDERS RAPERIGL: an ENe eee hohe aeons 

e of Transitional Elements" : GOSUB 6270 : f = 56 : 
GESUB G20 2 PRINT 2-FOR £ = 71 JO 72 3 (GOSUBSoZO 
DoNE Xiefaces GOSURS SOG 

320 RETURN 

S40 cCL5:-) PENG See BR CA Per onsets rR hiss Sb OSkie 
65047 2aPRINT. ¢:- FORA =O Obit. GOSUE 620.3 -MEXdat 
: GOSUB 660 

S90 GES 2 PEN 2s se RNs Se Si 1 eclie2 car semi rw Ni meni eee hes 
SSO) SPRL as Rae taas ee oar SSO SW Eis ce see heaters 
: GOSUB 600 

soo CoS 3 REN Se FRiNne "Penrod 2 “ FREMT Ss ) SOSUB 
Sc Oe Romie tee hee for hentia g) te tole een emi ts 
# : GOSUBR 600 

S60) GUS) 2 EEN Seed PRIN ther 2 odi4 es See Nil S2eGGSur 
COS STR DINGS ee eats) fem == er) dye Cr) Sy eae Ee 
= FOR fo- 20 cio oo o  GOSURCG2Oy -eoNE Xe ite seh Sie 
600 

363 ClSes RENGS = ERIN SPeriod S's: ERINT ss 60Sus 
620-3. FRINT = sEOR tf) = 264 1Gs7 =) GOSUB G20) + Nex 
f =: FOR + <='48) T0752 4: GOSHUB (6207 INEX: fs GOSUEB 
600 

270 CIS se REN] Ss ERIN 2 eres cree ciel uh ie aremten eS (olte 
630 : PRINT +: FOR f = 54 TO SS + GOSUB 620 >: “NEXT 
f : FOR f = 8&0 TO 85 : GOSUB 620 ; NEXT # : GOSUE 
600) 

379 CLS : PEN 3S : PRINT “Period 7": FRINT.: GOSUB 

620 2: PRINT : FOR f = 86 TO 87 : GOSUB 4620 : NEXT 

fs -bOSUB Sou 

280 RETURN 

400 CLS ; BORDER 6 : PAPER 1 : PEN 3 : PRINT "HIST 

ORY OF THE CHEMICAL ELEMENTS" : FRINT : PEN 2 : PR 
INT “The early Greek alchemists and in parti 

cular Empedocles said that the" 

402 PRINT "elements of which all things are made 
are earth, air, wind and fire. The alchemist 

Ss discovered that the true chemical elements c 

ould not be split." 

404 PRINT "The elements the alchemists knew were 
gold,silver,copper,iron,lead,tin,mercury, antimony 
»Ssulphur,arsenic,phosphorus and carbon." 
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406 PRINT "In the 18th century when chemistry was 
becoming a Science chemists began to discover 
new elements. At first they found 92 but more r 
ecently chemists havelearned to make il more new e 

lements." 

410 PEN 3 : FRINT : PRINT "Hit any key to continue 

445 at = INEFEY# : IF a# 

420 RETURN 

450 BORDER © : PAFER 1 

Fach eM ete (OCA Ges lO SERN Leo FPERTODTE Ala 

Rise 

460 PEN 3 s FRINT : FRINT "This program will help 

you practice your knowledge of the chemical elemen 

ts and their :" 

46o [OCATE lO 7 Me PRINT tnane' =) LOCATE 107.8) 2 :ARI 

NT "symbol" : LOCATE 10,9 : PRINT "atomic number" 
: LOCATE 19,10 : PRINT “atomic mass" 

470 _PENs2 >2) PRIMA]: PRINTS §VPRENTeth ist any key to 

continue" 

4735 at = INEEY# : IF a¥ = "" THEN 475 

477 RETURN 

250 si Se oP eN es) ws GOGAT Es Te tor? PRUNE MENG es PR 

NT : FRINT “Do you want to see :": PRINT : PRINT " 
1) the brief history?" 

482 FRINT : FRINT "2) the name, symbol, atomic mas 

s or the atomic weight of any element?" : FRINT 
: PRINT "3) the Periodic Table in Period groups?" 
: FRINT : PRINT "4) the Table of Transitional Ele 

ments?" 

484 PRINT : FRINT "S) the Table of rare elements?" 
: PRINT : FRINT "6) the actinide series of elemen 

ts and the artificial or man made elements?" 

485 PRINT : FRINT "7) test your knowledge of the e 

lements?" 

486 PRINT : FPRINT : FEN 2 : FRINT “press the numbe 

r that you require” 

488 at = INKEY# : IF a#t = "" THEN 488 


il 


12 THEN A ES 


490 IF af = "1" THEN GOSUB 400 : GOTO 480 
491 IF at = "2" THEN GOSUB 700 : GOTO 4980 
492 IF at = "3" THEN GOSUB 240 : GOTO 480 
492 IF at = "4" THEN GOSUB 330 : GOTO 480 
494 IF af = "5" THEN GOSUB 300 : GOTO 486 
495 IF at = "6" THEN GOSUB 270 : GOTO 480 
496 IF af = "7" THEN GOSUB 200 : GOTO 480 


497 FRINT : FRINT “A mumber under 8" : FOR t =1T 
Ge sOets: NEX Ts ter a60TO 480 

500 DATA 1,H,Hydrogen,1,2,He,Helium,4,2,Li,Lithium 
,7,4,Be,Beryllium,?,5,B,Boron,11,6,€,Carbon,12,7,N 
»Mitrogen,14,8,0,Oxygen,15,9,F,Fluorine,19,10,Ne,N 
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eon,20,11,Na,Sodium,22,12,Mq,Magnesium, 24,125,811 ,Al 
cami eats PANS 2, Sil Comins els _P, Phosphorus, 31 
S1O DATA 6, S, Sulphur se, 17, Cl Chlorine, 4a leer. 
rgon,40,19,F,FPotassium,S 20, CayCarediaim, AQ S212, Se 7S 
candium.45,22,T? Titanium, 48/25; Vanadium, st ,2450 
r,Chromium, 52 
520 DATA 25,Mn,Manganese,55,26,Fe,Iron,56,27,Co,Ca 
balt,o7,26,Ni .Niveckel yao 52> Cu, coppers 64,20,2Zn,Zine 
,o5,021,Ga,Gallium,70,32,Ge, ber nance 73,33 .As/aeze 
nic,75,24,Se,Selenium, 79 
530 DATA 35,8r,Bromine,80,36,kr,Krypton,84,37,RbD,R 
ubil dium, 85,28; Sr. Strontium,88,4°9, 7, Ycter um. o7, 40,2 
r,Zirconium,?1,41,Nb,Niobium,93,42,Mo,Molybdenum,? 
6,43,Tc, Technetium, 78 
540 DATA 44,Ru,Ruthenium,101,45,Rh,Rhodium,103,464, 
Te Peqina, Masala Saat ee ae © 
pes Lins eM LUM g leliatgciG’s SMigeloiMiigek, bes 
S50 DATA 31,S5b,Antimony, {eaves sre PeTarium alae oe 
,l,lodine, 127,54, Xe, Xenon,121,55,Cs,Caesium,122,56 
“io Esefudr 2757 ;la Lanthanum 2) 5e.cstce aaa 
0,59,Fr,Praseadymium,141,4559,Nd,Neodymium,144,461,Pm 
,Fromethium, 147 
560 DATA 62,Sm,Samarium,150,63,Eu,Europium,152,64, 
Gd,Gadolinium,157,65,7Tb,Terbium,159,66,Dy,Dysprosi 
um,162,467,Ho,Holmium,165,468,Er,Erbium,167,59,7Tm,Th 
ulium,169,70,Yb,Ytterbium,173 
570 DATA 71,Lu,Lutetium,175,72,Hf ,Hafnium,178,73,T 
a, Tantalum,181,74,W, Tungsten,184,75,Re,Rhenium,186 
»76,05,0smium,190,77, Ir, Iridium, 192,78,Pt,Flatinum 
pals LP HAM SOLE SLIT VOM ay ets Gila ya cha wey meenc slittetie kee 
um, 204,82,Fb,Lead, 207 
580 DATA 82,81 ,Bismuth,209,84,Po0,Polonium,210,85,A 
t,Astatine,2190,86,Rn,Radon,222,87,Fr,Francium, 222, 
88 ,Ra,Radium,226,89,Ac, Actinium, 227,90,Th, Thorium, 
232,91, Fa eect ee rn eerie 58, 22,.Np, 
Nant ickiameeay 
390 DATA 94,Fu,Flutonium,242,95,Am,Americium,243,9 
6&,Cm,Curium, 247,97,Bk:,Berkelium, 247,98,Cf,Californ 
ium,251,99,Es,Einsteinium,254,100,Fm Per ciimeese 1 
OL, Md.Mendel evinm, 25601 om No. Nobeet unease LOS Ewaile 
awrencium, 257 
600 PRINT : FRINT “Hit any key to continue" 
605 af = INEEY# : IF at = "" THEN 605 
610 RETURN 
620 PEN © : PRINT at fis etsba (+) vetsct (tf) setsd tth-: 
FPRINT =: RETURN 
620 PRINT “At.No. Symbol Name At.Mass" : 
RETURN 
200 CLS 3 BORDER O'S (PAPER = (Fen? 2 = Eel Wha 
h atomic number do you want details of?" : PRINT 
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$ PRINT os INPUT at 

720 PRINT = PRINT catat—1)3*Fsb% Cat—l) ptSs3.ce Cat=1)s 

fE3sd(at—-1) 

725 GOSUB 600 : RETURN 

7aO ELS PAPER #149: PEN #L,S 0hOR: ke=o0 oO 

(eget e— ONO SHEA Te etl yet y diem cs) gh Ni ast Ic, 

GHRE CLAS) os) NEXT m =) NEXtok 

(eG FOR ke= 0 TO 3 : FOR m = 0 TOs =» LOCATE #1,.6+ 

k,7tm 2 PRINT #1,CHR$(145) : NEXT m : NEXT k 

770 LOCATE #1,4,6 3: PRINT #1,CHR#(2314) : LOCATE #1 

eae ser RN Hd CARE 2S) Locate #15567 YeeRINE 

#1,CHRS (214) : LOCATE #1,10,7 : PRINT #1,CHR# (215) 
1 LOCATE #1,9,10.5 PRINT #1,CHRS(2135)) + WOCATE #1 

pele FP RN Mt Hee (Cats) 

780 LOCATE #1,10,10 : PRINT #1,CHR# (212 

Hleeg ll os PRINT #isCHReCei ee) SERA = 

CATE #1,5,8+k : PRINT #1,CHREC143) =: 4 

8+k =: PRINT #1,CHR#(143) : LOCATE #1,7 

T #1,CHR#(145) +: NEXT k 

YOOSrEOR k= Oo TOs. + LOCATE #1, otk 12 = SPRONF Fie 

Grek teen 2 NEXT ks POR k=) O AIO 7) scl OCATE Ff is. 

Tis se, PRN teleost GIS ene thdvgekO) edict ef he 

INT #1,CHR#(209) : NEXT & 

800 LOCATE #1,5,12 : PRINT #1,CHR#(212) : LOCATE # 

He Ose RM. Hal. Gliese (ot) 

Slo OPEN Five sf) FORDER e= Oo TO 4s LOCALE His iote = 
PRINT #1,CHRS (138) CHRF(135) =: NEXT k : LOCATE #1, 

7,20 : PRINT #1,CHR# (145) CHR#(143) 

820 RETURN 

SSOuCeS FS “sR EN Hs eo SOSURY SSO! “ "S0SUB) G45 isc 

Seis = GOSUB 850-2: 2GOSUB=645 46S fooy 60SUB 630 

' GOSUB 844 1° CES #2: GOSUB 850 = “GOSUB S845 “' CLS 
#2 =) GOSUB SSO rs S50SUB S425 + GESets ss GOSUE Sao) 
GOSUB 841 : GOSUB 850 : RETURN 

832 p= 0 

841 LOCATE #2,17,3 PRINT #3,CHR# (143) 

B42 LOCATE #2,15,2 FRINT #3,CHR#(143) 

842 LOCATE #23,123,1 : FRINT #3,CHR#(142) 

844 LOCATE #23,11,1 : FRINT #3,CHR# (143) 

845 LOCATE #2,9,2 : FRINT #2,CHR#(142) 

846 LOCATE #3,8,4 : PRINT #3,CHR#(143) : FOR t = 1 
Tos 400° = NEXd -t 32 RETURN 

SJ0lSFOR a= (Ogee OR k= Oe Th 2) PEN aly ese 

OCATE #1,7,135+k : PRINT #1,CHRt (202) CHR# (202) : NE 

Mie: SSOUND. 1 27820, GigO, ore One c= Te iD aoe 

SONEXT t 

852 IF q = 2 THEN 845 

SéO<ROR k= .6 TO. 1.2 LOCATE #1,7,22tk 3 FRINT, #1,0 

HR#(SS)CHRE(32) 2: NEXT &k : FOR t = 1 TO 150 : NEXT 
its 


) : LOCATE 
OTe a a5 
CATE #1,10, 


0 
they os PRIN 
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Sore MES escle saekeuens 

900 FEN #2,2 : PRINT #2,"You will have 15 que 

stions. Points are awarded for carrect answers. " 
: FRINT #2,"Remember your capital letters!" : FOR 
j= 1 to 4000) 2 NExiet 

9055 Vi=sO ere = 70 

SO miles, Hala Fa Vier 

908 IF v= 15 THEN 1102 

910 PEN #2,2 : LOCATE #2,1,2 : FRINT #2,"Foints = 
‘sy 3 ERCATES#2 51,402 PRINT #2, "Guests onl sv 

ets GOSUBCS2o 

920 mn = INT (CRND*¥102) 

920 p = INT (RND#4) 

3S ON p GOTO 740,960,980, 1000 

940 LOCATE #2,1,10 : FRINT #2,"Name is “set(n) =: F 

RINT #2 : PRINT #2,"What is the symbol?" 

9425 FPRINT #2 : INFUT #2,ws? 

945 wk = "" : wk = wk + bE(n) 

946 IF ws = wk THEN GOSUB 1100 : GOTO 950 

948 FRINT #2,"no" 

950 GOSUB MI rsaG “2. GOTO, 907 

940 LOCATE #2,1,10 : FRINT #2,"Atomic Number is "; 

a(n) : PRINT #2 : PRINT #2, “What is it’s name?" 

963 PRINT #2 : INPUT #23,wet 

965 wk = "" > wt = wk + c#E(n) 

966 IF ws? = wt THEN GOSUB' 1100 ; GOTO 706 

968 PRINT #2,"no" 

S70. SUSUR 1isO>s GOROAF OY 

980 LOCATE #2,1,10 : PRINT #2,"The Symbol is "sb#¢ 

n) : FRINT #2 : FRINT #2,"What is it’s name?" 

983 PRINT #2 : INPUT #2,wst 

985 wk = "" s wt = wk + c#(n) 

986 IF wet = wt THEN GOSUB 1100 : GOTO 3790 

SSS PRINT #23" no-! 

SSORSO0SURMEL SOs S600 907 

1000 LOCATE #2,1,10 :_FRINT #2,"The Atomic Mass is 
"sd(n) : PRINT #2 : FRINT #2,"What is it’s name?" 
1003 PRINT #2 : INFUT #2,wst 

LOO WHe= (68) s Wee ewe ate es Ca) 

1006 IF wst = w THEN GOSUB 1100 : GQATO 1010 

1010 PRINT #2,"no" 

LOVe<SOSUR ALE Os = SO Ba Si7 

1100 FRINT #2, "good" : fr =r + (INT (RND*¥5) +1)*2 
1102 RETURN 

LISO- FOR t= 1 TO. 2000) s- NEXT ts 4RETURN 
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CROCGRAMS - 


anagrams with Croc 


CROCGRAMS CROCGRAMSTWO CROCGRAMSTHREE 
(age 10-15) (age 9-13) (age 7-11) 


PARENTS- this novel program can be used to enhance children’s language 
development as they play the traditional game of anagrams, whilst learning to 
manipulate letters to find the hidden word and at the same time improve their 
vocabulary and spelling. There is a choice of three programs depending on the age of 
your child. Read the tips and hints for information. 


CHILDREN- meet the magical crocodile who blows out letters, BUT, they are all 
jumbled up. You must put them in the correct order to make a word. There is no need to 


press ENTER after each letter and the computer will help you by erasing an incorrect 
letter, until you finally build the word. Your screen will look like this:- 


(ym )\ 
cera 


TYPING TIPS- the program listing is for a student of about 10 to 15 years of age but 
also listed in these tips is the DATA for the other two programs, so if you require either 
of these instead then choose which set and type that one in. But you must always have 
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100 words in your DATA lines otherwise the program will not work. With this in mind 
you may want to work out 100 words of your own. 


CROCGRAMSTWO- DATA 


700 DATA city,prey,fairy,danger,engine,sudden,matter,supper, happen, borrow, butter, 
ribbon,choose,cheese,someone, breakfast,porch,more,store,picture,sure,daisy,babies 
710 DATA gypsy,patch,truth,hollow,friendly,perhaps, person, longer, biting, giving, 
market,people,smart,remember,worry,children,enough,touch, giant, lion 

720 DATA motor,taste,soup,sugar,shock,even,track,present,finish,surprise,nurse, 
bench, branch,doctor,ocean,heavy,safety,candle,printer,river 

730 DATA suitable,juice,hospital,poor,caught,police,roller,once,almost,laugh, anybody, 
everyone,custom,enjoy,often,retire,towards,though, package,factory 

740 DATA through, within,recorder,thirsty,indeed,needle,speech,foolish,peace, weak, 
pointing,coin,leather,meant,steady, already, brain 


CROCGRAMSTHREE-DATA 


700 DATA last,faster,stand,those,these,father,mother,cage,real,seat,hear,near,clear, 
fear,eat,cream,team,lead,instead,push,full,thick,thump, stir, bird, shirt 

710 DATA sheep,shoe,show,murder,burn, hurt, stout,out,found,mouse, house, were, 
because, begin, any,anyone, where, wander,few,stew,knew,never,should,would,could, 
port,report,bleed 

720 DATA forest,lesson,both,warm,belong,shine,drive, wise,wife,spite,price,treat, 
reach,leave,scream,shame,blade,mistake, again, afraid,nearest,twist, write, divide, bare, 
dance 

730 DATA pencil,march,right,high,might,whose,coal,road,throat,toast,afternoon, 
craftsman,thumb,knock,smash, poison, ice,twice,shoot,away 


PROGRAMMING HINT - MIDS 


This is a useful command for extracting letters from a string variable. It is used in this 
program to rearrange the words into an anagram. 


Try this program:- 

10 af = "Amstrad Computing" 

20 PRINT MID$(a$,4, 2) 
Did you get 'tr' on the screen? Good. How did this happen? 
Line 10 gives a$ the string "Amstrad Computing". 


Line 20 instructs the computer to look at that statement and to take the fourth letter in 
a$, which is ‘t’ and to print two letters beginning with ‘t’, hence ‘tr’ is printed. 
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Now alter line 20 to read:- 

20 PRINT MID$Ca$S,INTCRND*17)+1,INTCRND*17) +1) 
and add line 30 

30 GOTO 20 


Now Run the program. Stop it and see what is on the screen. Try to work out what is 
happening. 


1 REM crocgrams 

“MODES? 

See aM a (9:94 

ao y# = CHR# (143) +CHR# (142) +CHR# (142) +CHRE (1425)+CHR 
(143) 2: 2% = CHR#(142)+CHR# (1425) +CHRS (142) +CHRE (1 
42) 

6& x# = CHR (22) +CHRE (32) +CHRE (32) +CHRE(1435) 2: wk = 


CHR# (210) +CHR#(210)+CHR#(210) : v# = CHR#E(95)+CHR 
#$(95)+CHRE(95) : ut = CHR¥(140)+CHR#(140)+CHRE (140 
) : t# = CHR#(198) +CHR# (198) +CHR# (198) +CHR#(199)+C 
HR# (198) 

7 ~$ = CHR# (1 S1)4+CHR#(131)+CHREC1 21) : sé = CHR#(2 
08) +CHR# (208) +CHR# (208) +CHR# (29S) +CHRE (208) 
SSG0SUB SSo 

LOSS OhDER we Odea bN@e iter SIN Tele es SNe See aes er Ns 
fomei gi 

2O WINDOW #1,1,40,1,16 

22 WINDOW #2,1,40,17,25 

24 WINDOW #2,27,40,15,16 

26 WINDOW #4,12,27 air 

30 FAFPER #1,0 : FPAFER #2,2 : FAPER #23,2 : FAFER #4 
ae 

Seco tl sce ete ef CUS HS: Ces tte Svb aoe s 

GOSUB 600 : GOSUB 620 
29 LOCATE #4,3,3 : FRINT #4, "CROCOGRAMS" 

36 LOCATE #2,3,4 : PRINT #2,"FIND THE WORDS FROM T 
HESE ANAGRAMS" : FOR t = 1 TO 3000 : NEXT t 

AOMEES #1 2 CeS #2 3 CES #5 2 CLS ks 

30 GOSUB 570 ;: GOSUBR 600 : GOSUER 620 

s2 CLS #4 : e = INT(RND*100) : word# = "" : word? 
= word? + g#¥(le) 

so GOSUB 400 : GOSUR 300 : GOSUB 320 

67 wordt = "" :; word = word? + g#(e) 

VORROR. hai "a. TQ" -c4 

72 LOCATE #4,2+h,4 


153 


7 at = INREYS :) IF iaeto= 4! OoTHEN vo 

77 PRINT #4,a¢ 

SO UPOR, tt] =f TORoeOri. NEXT st 

85 IF MID#(word#,h,1) = a# THEN 90 ELSE 95 

90 NEXT h 

SF 2GOnG Blew 

os LOCHATEs #4..5+h—1 540 s2F RINT HA ee GO 

100 FOR bo = 1 TO 30 : BORDER INT(RND*¥27) =: SOUND 

LEUNTMAND*S822 i205 os FOR Ee Hs ORL SOr saxo ox 
NEXTROORt MROR 9 tar pele Gee Otss oN Eee 

150 76070 -s2 

200 FOR mm = 1 TO d% 

302 n# = MID#(anagramt,mm,1) 

204 LOCATE #1,6,14 : FEN #1,1 : FRINT #1,n% : GQSU 
S205), b0CATE Hig 6,14 e.sRRIMEaEL sy 

BOG eeOR Nos OT Mee Sires) GA ates re ie een 

RIN tinintes GOSURE SLD SORA Es ll, oa dl mae strc: 
+i, os NEXT mp s EGCATE #4 ,2+mm, = ) REN foe 

PRINT #4,n#% : GOSUB 320 : NEXT mm 

308 RETURN 

520, SOUND 1),5024,,20,6 3) FOURS ty = eeiOt ZO. oon Nes kaon 

: RETURN 

S20 (UEATE tigo,4 2 POR tcd = “hu vd s sPREN ae 

ree = NEA Got ars SINE EORO I 

SO we OM ee Ce ely 

360 READ g#(m1l) : NEXT ml : RETURN 

400 anagram? = "" ; d% = LEN(word#) : FOR b = 1 TO 
di 

410 c = INT (RND*¥d%) +1 

420 IF MID#(word#,c,1) <3 " " THEN anagram# = anag 

ram + MID#(word#,c,1) : LET word? = LEFT#(word#,c 

—-1)+" "+RIGHT# (word?,LEN(word#)-c)ELSE 410 

420 NEXT b : RETURN 

S70 LOECATES Ale iSacs se he Nedk ol 

S75 PRINT #1,CHR# (210) CHR# (140) CHR# (142) CHR#E(143)C 

HR# (132) 

580 BRINT #1,CHR# (209) sys: CHRS(1s5S5) =: PRINT #1,CHR 

= (128) s yey CHRSC1Ss) 

385 PRINT #1,CHR#(138)s y$;CHR#(1S55) 2: PRINT #2, CHR 

$(138) 5 y#; CHR# (142) 

5390 PRINT #1,CHR# (130) sy#;CHRS(212) : PRINT #1,CHR 

$¢ 1556) soe eCHRS (135) or oRRING #1, EHRS(tS8) »2sy CHR 

25) 

o95 FRINT #1,CHR# (120) CHR# (143) CHR# (143) CHR#E(1435)C 

HR (212) 

596 RETURN 

600 (ROEATIES Ailk,) 2512p lee 

605 FRINT #1,CHR# (213) CHR# (142) CHR#(145) : FRINT # 

1, CHR# (22) CHR# (32) CHR# (2123) CHRE (143) 

610 PRINT #1,x# 2: PRINT #1,“% : PRINT #2,CHRE(S2)C 
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HR# (32) CHR# (214) CHRE (143) : RETURN 

620 LOCATE #1,7,13 : PEN #1,35 : PRINT #1,CHR#(214) 
324%; CHRS (135) CHR# (141) CHR# (140) CHRE (140) pws ve 

622 LOCATE #1,7,14 : PRINT #1,t%3; CHR# (142) CHR#(145 
Yge¥sets2F3CHRF(141) puts ws wet 

625 LOCATE #1,7,15 : PRINT #1,r%3;CHR#(139) syt:ytsy 
#3; CHR# (121) 

630 LOCATE #1,12,16 : PRINT #1,CHR#(142) CHR#(143)CH 
R# (208) CHR# (208) CHR# (208) yr#3 CHR# (1435) CHR# (135) CHR 
$ (2908) CHR# (208) 

39 LOCATE #2,1,1 : PEN #3,2 : PRINT #3,CHR#(131)C 
HR# (208) 55%; CHR# (206) CHR#(129) : LOCATE #3,9,2 : F 
RINT #3,CHR# (124) 

640 LOCATE #2,34,1 : PEN #2,3 : PRINT #2,CHR#(204) 


650 RETURN 

700 DATA enter ,offer,border ,perfect,chapter ,hammer 
,answer ,power ,different,camera,modern,interest ,pow 
erful ,awful ,wonderful , bitter ,daughter ,secret,secon 
d,space,grace, suppose 

710 DATA escape,admire,advice,spare,share,overtime 
,define,survive,arrive,alive,arise,damage,flood,bl 
ood ,passage, manage, yesterday,chart 

720 DATA depart, harmful ,parcel ,chance,distance,ent 
rance,stronger,finger ,gentleman,arrange,parent,mov 
ement ,double,courage,evening,darkness,crowd, shadow - 
yflesh,course,bought 

720 DATA enemy ,promise,family,merry,wrapping,heart 
less,stretch,kitchen,tomorrow,cotten,narrow,dressi 
ng, appear,attack,discover,electric,equal, quick, squ 
are,adventure,scratch 

740 DATA jewel ,whisper,kettle,address,biscuit,init 
ials,newspaper ,beautiful ,capsule,curtain, amongst ,i 
nvitation,notice,platform,inspect ,weary,treasure,c 
upboard 
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STAIRWAY TO 
SUCCESS 


A game for two players. 


PARENTS- a program designed to help children learn the plurals of some of our 
nouns. Our language is very complicated and in order to make a word plural it is, 
unfortunately, not always just a matter of putting an ‘s’ on the end of it. In this program, 
the child will meet words which require the addition of ‘s’, ‘es’, ‘ies’ and ‘e’; where it is 
necessary to change part of the word (e.g. mouse, mice); and even words where the 


singular and plural remain the same. 


CHILDREN- climb the stairway to success. Who will be the first to open the door at 
the top of the ladder? Only by making the given singular(*1) word plural(*2), will you 
be able to move up the ladder! The program begins by asking you your names and then 
gives you a ladder each. You will be asked, in turn, the plural of a word. You must type 
in your answer and then press [NMSSRY . With each correct answer, you will climb the 
next rung of the ladder. 


*] ‘singular’ means one e.g. one book 
*2 ‘plural’ means more than one e.g. lots of books. 


Your screen will look like this:- 





ladder 


Ann your turn 
| volcano =? 
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TYPING TIP 


The 75 pairs of singular-plural words found between lines 300 and 325 can be altered 
by deleting these lines and inserting a further set of DATA. There must be 75 pairs of 
words otherwise the program will not work. 


PROGRAMMING HINT - LEFT$ 
LEFTS$ is a function used to extract characters to the left of a given string expression. 
Try this program:- 

10 CLS 

20 AS = "London" 

30 PRINT LEFTS$CA$,3) 


Did you get “Lon” on the screen? The program PRINTed three letters of A$ beginning 
from the left. 


Hence, 

40 PRINT LEFTSC(A$,5) 

added to the program would PRINT the first five letters of A$ beginning from the left. 
Try it and see. 


Look at lines 95 to 107 in the program listing. The L E F T$ is used to make sure that only 
the first four letters of the players names are used. 


1 REM stairway 

10 DIM-pl#(74) s DIM pls#(74) 

15 FOR p = © TO 73 : READ pl#¥(p) =: READ pls#(p) 
NEXT p 

SORE ENTO 8: INK 1@,0 1 SEEN Bh 2) ciNKRM Gee FEN Soe NK 
2,24 oS (PEN S “2 LINK PS 720 

ZSeWINDOW Hilly lS, 27 ses Vo ee PAPERS ad. 

26 WINDOW #2,1,40,1,25 

27 WINDOW #2,1,40,20,25 

ei) (Gites) 

25 GOSUB 400 : GOSUB 430 : GOSUB 455 

60 PEN #2,1 : LOCATE #2,16,14 : PRINT #2,"C LIM 
Bis ROCATE THETA Se Se DPR Iie tess Tense. ke As Dedo FE 
R" = LOCATE #25195 18°"° PRINT #2,"0°F" : LOCATE: te, 
14,207 22 PRINTeaSy" Se UW) Cr CPEs Ss S™ 
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70 FOR’h = 01 TO.10°2 SOUND? 1,956, 20, 7a: SSOUNDW2; 16 
,20,7 : BORDER INT(RND*27) : FOR t = 1 TO 200 : NE 
XT Oboe EXT oh 

80 BORDER 16 : CLS #2 : CLS #1 : GOSUB 400 : GOSUB 
430 : GOSUB 455 

90 LOCATE #2,1,20 : PRINT #2,"I need your initials 
. Flayer 1, give me yours but don’t use more than 
4 letters." 

95 LOCATE #2,1,22 2: INPUT #2,naz 

97 nat = LEFT#(na#,4) 

100 PRINT #2,"Player 2, give me yours (4 letters). 
105 INFUT #2,nam# 

107 nam# = LEFT#(nam#,4) 

110 na = 1: nam =i 

130 CLS #1 : GOSUB 400 : GOSUB 430 =: GOSUB 4535 :°6 
OSUB S20 

132 GOSUB 6S 
123 GOSUB 700 
Weems te 
140 PEN #2,1 : PRINT #23,na#3" your turn" 
145 r = INT (RND#74) 

150 LOCATE #2,8,3 : FRINT #2,pl13(r) 

155 LOCATE #2,25,2 : INFUT #3,ans? 


GOSUR 470 
GOSUB 490 


160 IF ans# <2 pls#(r) THEN GOSUB 280 : GOTO 200 
170 GOSUB 290 : >GOSUB 480): BOSUB 400°: na = na + 
1 


180 GOSUB 4650 : GOSUB 470 

Se Teme cee te etic es ecient) 

200 CLS,#S ss. FEN #3,-2 o2 LOCATE, #5.556,1 
am#3" your turn" 

205 r = INT (RND*¥74) 

210 POCATEVHS, See ee eS plete) 
220 LOCATE #3,25,3 : INFUT #3,ans# 
20 [FF ans? ~~ piss)” THEN GOSUBS2eOre Clos tetas 
QTO 140 

235 GOSUB 290 : GOSUB S00 : GQSUBR 430 : nam = nam 
tae 

240 GOSUB 700 : GOSUB 490 

245 IF nam = 11 THEN 600 

250 + GOO ateec 

“80 PRINT #2,"Sorry answer is "spls#(r) : FOR t = 
1 TO) SOOGy == NEXince a seenceclcN 

290 FOR w= 1 TO) 10 3" SOUND 1,325 20,7) 2) SOUND 220 
Sogecis 7 © ROR te a= O20 Gt ssc Nal teemee esa mmm Ea 
URN 

300 DATA abbey,abbeys,army,armies,assembly,assembl 
ies,baby,babies,banjo,banjoes,battery,batteries,be 
lief, beliefs,berry,berries,body,bodies,brief ,brief 
s,bully,bullies,buoy,buoys,butterfly,butterflies,.c 


FRINT #23,n 
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alf,calves,cargo,cargoes,century,centuries 
305 DATA chief,chiefs,chimney,chimneys,city,cities 
,comedy ,comedies,copy,copies,country,countries,cou 
nty,counties,curio,curios,datum,data,daisy,daisies 
,deer ,deer ,desperado,desperadoes,dictionary,dictio 
naries 
310 DATA dinghy,dinghies,domino,dominoes,donkey,do 
nkeys,echo,echoes, elf ,elves,enemy,enemies,erratum, 
errata,factory,factories,goose,geese,guy,guys,half 
gshalves,halo,haloes,inferno,infernos, jockey, jockey 
S 
315 DATA knife, knives,lady,ladies,larva,larvae,las 
s0,lassos,leaf,leaves,life,lives,loaf,loaves,lorry 
,lorries,madame,mesdames,missionary,missionaries,m 
onkey,monkeys,mouse,mice,mummy,mummies,oasis,oases 
,OX ,OxenN 
220 DATA party,parties,photo,photos,piano,pianos,p 
ony, ponies,potato,potatoes,radius,radii,roof,roofs 
,»Ssalmon,salmon,self,selves,sky,skies,story,stories 
, toe, toes 
225 DATA tooth,teeth,tragedy,tragedies,try,tries,v 
Olcano,volcanoes, wife,wives 
400 REM left—-ladder 
AOS Lat 9G, 8) DRAW oo, foo, sero 4S, So, os 
DRAW 225,288,232 
410 FOR a = 1 70 12°: PLOT’ 157 (1S*a) ,96+(16%a)-s D 
RAW 45+ (15*a) ,96+(16%*a) 2: NEXT a 
415 RETURN 
30 REM right-l adder 
Bee Tete) yo? git) on DINAW sae OO 2 eo Oe OO oan One e 
: DRAW 405,288,2 
440 FOR a = 1 TQ 11 F PLO Ssa-(lokval, eortiscear, 2 
: DRAW S8S5-(15*a) ,96+(16*a) ,2 : NEXT a 
445 RETURN 
4350 REM wall 
AiG ies los PEN Biase COR iO) Oars) POR =a) 
HOA ww OCAnESHI eth ye ton: RENTS ae more Clare sete 
GEATE #1 ioth,ere: = PRUNMS Fi gens (14s NEXT tc *: 
NEXT b 
460 FEN #1,0 : LOCATE #1,4,4 : PRINT #1,CHR# (221) 
5) LOCATE #1,13,4 = PRINT #1,CHR¢(231) 2: RETORN 
470 REM 1-man 
473 PEN #2,1 : LOCATE #2,d,e : PRINT #2,CHR# (251) 
: RETURN 
480 REM 1l-man-of f 
485 LOCATE #2,d,e : PRINT #2,CHR#(22) : RETURN 
490 REM r—-man 
4905 (FEN #2,1 2: LOCATE #2,4,g : PRINT #2,CHRS(250) 
: RETURN 
900 REM r—-man—-of f 
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505 LOCATE #2,f,g : PRINT #2,CHR#(32) : RETURN 


520 LOCATE “#25257 .: PEN) #2, 102 SFRINT #2 gmatne ise ys 
LOCATE #2,2,8 : FRINT #2,"ladder"” =: LOCATE #2,22, 
7 : PRINT #2,nam#;"'s" : LOCATE #2,33,8 : FRINT #2 
y Ladder" 

g2o RETURN 

300 PEN #150 2=B0R b= O02 . POR se o= 0) .bOleA are atet) 

GATE sthing2 bo 2 eo ot RCLN teeth eri Gets sma Xai e ti 
XT b : LOCATE #1,46,2 : PRINT #1,na# : LOCATE #1.,.7, 

4 PRINT tly, SWINGS: sGOSUR 290.2 SEND 

600 PEN -#i.O u POR. j= 0.1.08 2s ROR ee HO edie, sags 


OGATE 41 eb ete. Rel Min tele, eA eee iae alice 
NEXT b : LOCATE #1,46,2 : FRINT #1,nam# ;: LOCATE #1 
794 eR UNE abl WINS. oe GOSUB, 290g: sEND 
630 IF na = 1 THEN d = 2: e@ = 18 
SS IF na = 3 THEN d = 3: @ = 17 
654 IF na = 3 THEN d = 4: @ = 16 
656 IF na = 4 THEN d = S53: @ = 15 
658 IF na = 3S THEN d = 6: @ = 14 
660 IF na = 6 THEN d = 7: @ = 15 
662 IF na = 7 THENd = 8: e = 12 
664 IF na = 8 THEN d = 9: e = lil 
666 IF na = 9 THEN d = 10 : e@ = 10 
669 IF na = 190 THEN d = li: e ey 
470 IF na = 11 THEN d = 123°: e = 8 
672 RETURN 
700 IF nam =-1 THEN f = 36 : g = 18 
7Q2 IF nam = 2 THEN f = 25 : g = 17 
704 IF nam = 3% THEN f = 34 +g = 16 
706 IF onan = 4 THEN # = S35 2: 9 = 15 
708 IF nam = S THEN £ = 325g = 14 
WLO-TE nam = 6 eTHEN yhet=) Sil Gee gh =. bs. 
732. likeonam, = a7 MENGE Sa sOl Rog = ie 
714 IF nam = & THEN f = 39 : g-= 11 
716 IF nam, =9 THEN ri =. 28 =< g = 10 
718 IF nam = 10 THEN f = 27 3: g = 9 
720 IF nam-= 11 THEN 4 = 26 % g .=-8 


722 RETURN 
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SEA-BATTLE 


A game for two players. 


PARENTS- a game to encourage and help early co-ordinate work and map reading 
skills. 


CHILDREN- compete against your friends as you try to sink their destroyers and 
submarines, and blow up the mines that they have laid, by firing torpedoes at these 
targets!! A successful torpedo hit scores points, the value will depend on the target. The 
winner of the game is the first person to 150 points. At the start of the game, you will be 
asked your names. Type them in- remember to press the fN@@eigukey after each name. 
Now, you need to mark the positions of your mines, submarines and destroyers on your 
computer grid (you could copy your grid onto paper as well if you wished). Enter the 
positions by using co-ordinates- enter the “X’ co-ordinate (horizontal) first, followed by 
the ‘Y’ co-ordinate (vertical). Press the aa key after each pair of co-ordinates. 
Make sure that your friend has his eyes closed, or better still, leaves the room while you 
do this! 


Then it will be your friend’s turn to enter his co-ordinates- you must leave the room as 
well! When all the co-ordinates have been entered, you have to guess the positions of 
your opponent’s mines, submarines and destroyers. Alternately, type pairs of co- 
ordinates into the computer to see if you have guessed correctly. 


Your screen will look like this:- 


Points 60 Points 30 | 
[ | 

t Fire a torpedo 
Battlefield . of 
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Remember, the first to reach a score of 150 points is the winner. 


GOOD LUCK!! 


PROGRAMMING HINT - RIGHTS 
RIGHT$ is a function used to extract characters on the right of a given string expression. 
Try this program:- 

10 CLS 

20 ag = "Welcome" 

30 PRINT RIGHTS$(a$,3) 

40 PRINT RIGHTS$(a$,4) 


Did you get "ome" and "come" on the screen? Line 30 of the program PRINTs the 
last three letters of the a$ "Welcome", and line 40 PRINTs the last four letters. 


1 REM sea-battle 


LObdr Ss "Ore deac= 0. 2Sdrebi= 2O) sodreer=r Oraidrd-=n6 
: -dre = 0-8 defo= cOersdrgr= Ger) dehe=70 

19 eds 2S rdav=Wetrda = 96. ede l= 0 2 rdd =o 
rorde =9O £ rdf-=507 :erdg = "O-F rdhss 

Oe FEIN Ou sp ar Cyr treme sean te ee ed eet eee ryan sneer ea lo 


ee eet ee Nae NIB epee 

SO WINDOW #1,1,20,1,13 : WINDOW #2,21,40,1,13 : WI 

NDOW #2,1,20,14,25 : WINDOW #4,21,40,14,25 

395 WINDOW #5,1,40,1,25 

40 WINDOW #6,14,19,5,7 : WINDOW #7,21,26,1,3 : FAF 

ER #6,0 : CLS #6 : PAPER #7,0 : CLS #7 

TOOT BORDER 13 : FAPER ¥#S,0-: CES > #5 

105 GOSUEB “S00 — EOSUE S20 

110 PEN #5,2 3) LOCATE 4a 51714 2 oPRING to in) this 

game you have to sink each others underwater 

mines, submarines and destroyer. You will have to 

place these on your opponent’s grid but of course 
their positions will not be known." 

115 PEN #5,3 : FRINT #5,"You will score points for 

each hit." = PEN 43a.) See RIN fa,0 tinea was te toeete 

O points is the winner." 

120 PRINT #5 : PEN #5,2 2 PRINT #5,"Hit any key to 

continue" 
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125 at = INKEY# : IF a# = "" THEN 125 

TSOSCESatone GOSUBSS00- le GOSURBCSSO0S: pre = —O 2s pmic= 

Oo 

135 FEN #3,2 : PRINT #3,"Player 1, what is your 

name?" : INFUT #3,naz 

140 PRINT #3,na#% : PRINT #2,"You will use the 1 

Sit (Gini 

142 FEN #3,23 : FRINT #2,"MAKE SURE THAT YOUR OFPON 

ENT IS NOT LOOKING WHEN YOU FLACE THE ARMAM 

ENTS. ? 

145 FEN #4,1 : PRINT #4,"Flayer 2, what is your 

name?" : INFUT #4,namé 

150 PRINT #4,nam# : FRINT #4,"You will use the 

Beakht. grids 

Poets = ee Oe ss MEX Ta cepas CMS Sere cies S4h4 

160 PEN #3,2 : PRINT #3,na®% : FRINT #3,"Where do y 

ou want the mines an your opponent’s grid?" : 

FRINT #23, "Horizontal coordinate first" : 

EGGAIE Ho j.72 2) SINFO RS 20: DOC AT EHS 2a ee ANEUT 

Hoy 

Lene tao eV EDEATEs #25 7.8) eT NUT Few sere 

leat, vi meuAGATE Fag 7% 2. I NEOUROHS jus INPUT etSisie 

EVE ATES HS iy 7 qakOms CINEU Te Sr 

IZ GOSUB Sa0 2: CLS #2 2 PRINT HS, “And now the 
submarines." : INFUT #2,p : LOCATE #3,7,3 : I 

NFUT #2,q : INFUT #23,m : LOCATE #2,7,4 : INPUT #2, 

fas ONE tsp eee OCA Ee HS, 7eaot INPUT Gah othey 

T #2, : LOCATE #2,7,6 : INPUT #2,g 

175 GOSUB SSO : CLS #32 : PRINT #2,"And finally the 
destroyer. "«:4INFUT #23,d :“LO@CATE #23,7 55 2. IN 

Bul, ta ens £50SUBRESSO a2 SELSeHS 

180 FEN #4,23 : FRINT #4,nam# : PRINT #4,"Where do 


you want the mines on your opponent’s grid?" s: 
PRINT #4, "Horizontal coordinate first" : 
LOCATE #4,1,7 : INPUT #4,z2 2: LOCATE #4,7,7 : INF 

UT #4,yy 


185 INFUT #4,«« 2: LOCATE #4,7,8 : INFUT #4,ww: INP 

UT #4,VVv : LOCATE #4,7,9 : INPUT #4,uu : INFUT #4, 

6S : LOCATE #4,7,10 3 INFUT #4, rr 

190 GOSUB S50 : CLS #4 : PRINT #4,"And now the 
submarines." : INFUT #4,pp : LOCATE #4,7,3 : 

INFUT #4,qq : INFUT #4,mm : LOCATE #4,7,4 : INFUT 

#4,nn : INFUT #4,kk : LOCATE #4,7,5 : INFUT #4,hh 

: INPUT #4,4f : LOCATE #4,7,6 : INFUT #4,q9 

195 GOSUB 550 : CLS #4 : PRINT #4,"And finally the 
destroyer." : INFUT #4,dd : LOCATE #4,7,3 : I 

NFUT #4,ece : GOSUB. SS0s:-CLS #4 

~250 FEN #3,2 : PRINT #3,na% : PRINT #3,"Battlefiel 

d“ ; PRINT #3 : FRINT #23,"Fire a torpedo" 

255 PRINT #5 : INPUT #3,an : LOCATE #2,7,6 : INPUT 
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#3,ans 
260 GOSUB 600 : GOSUB S50 
265 CLS #6 : PEN #6,1 : PRINT #6,"Foints" =: PRINT 


#6,pn 
267 IF pn == 150 THEN 450 
Some lost 


S00 FEN #4,1 : PRINT #4,nam# : PRINT #4,"Battlefie 
ld" : PRINT #4 : FRINT #4,"Fire a torpedo" 
305 PRINT #4 : INFUT #4,an : LOCATE #4,7,46 : INPUT 

#4,anSs 
S10 GOSUEIW/00 #2) GESHR (S50 
315 CLS #7 : PEN #7,1 : PRINT #7.,“Foints" 92° PRINT 
#7,pm 
S17 IF pm == 150 THEN 470 
320 CLS 44> GOTO S2se 
4230 PRINT #4,"Already hit" : RETURN 
440 PRINT #2,"Already hit" : RETURN 
450 CLS #35er PRINT #55: PRINT #3 ,na%.2 PRINT #23, SW" 
ON" : GOTO 490 
470 CLS #4 : FRINT #4 : FRINT #4,nam% : PRINT #4, 
WON" : GOTO 490 
490 FOR fm = 1 TO 10. : BORDER INT (RND*¥27)°s GOSUB 
Se Om series fam 
495 END 
JOG (REM Sgmad 
205 FOR a SO TOP LSOCSTBPalG 4) TFEDiwa, Bea as Sabie 
Wa, 284, NEXT a 

SLOP OR 224 TO> Se43STER Sis: = FEO son basse DRA 
W190 Fly NEXT b 
alist LOCATE $14 poe ARRIND BPS SRN Teens BEN 
as eens PRINT #108: PRINT #1,"4" : PRINT #1 : FR 


ta oO tel 
se jf = 


DN SF pee eR LMT Feat ee LN te sr a Nie see ee 
oO 2 4° 678" 

Sié RETURN 

720 PORa t= 4°27 .Oirsv7 STEP SiGe s PHOT Gagce4, SS DR 

AW a,364,3 : NEXT a 

dao POR Mb ees) a 0; 284 “Stereo SPS 47a os ebR 

AW=S77, 0,4 <9 NEX nD 

J27 EOCATE #21875 2. PRINT Hse eo: EOCATE tenes 
:° PRINT #20) 6": SBOCKIER He, Ta. 7 er PENT they oes 

LOCATE FS51S,o eee RUN Tete as lee One #2,18, tele Shs 

PRINT Sha, SGU See BEATE tthets chy 1 SRE PON NTS tice ean eee eh 
eects 

S320 RETURN 

duo FOR t= Pf TO SS00) 2 NEXT eS -RETURN 

070 POR weiter -7O Ser SOUND aun Sia es amUln ate = eer 

TO 200 : NEXT t : NEXT wz : RETURN 

7BO FOR wy = 7 TO 3 STEF -1i : SOUND 2, 2651, 20, Wy ,0 
0,15 :-FOR £ = P°TO-100 F°OMEXT © 2° NEXTiiwy 92. RETU 

RN 
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600 FRINT #1,CHR#(22)+CHR#(1) : IF am =-2z2 AND ans 
= yy AND dr = 1 THEN GOSUB 4460 : GOTO 6230 

601 IF an = zz AND ans = yy THEN GOSUB 680 : dr = 
1 

602 IF an = xx AND ans = ww AND dra = 2 THEN GOSUB 
440 : GOTO 620 

603 IF an = xx AND ans = ww THEN GOSUB 680 : dra = 
604 IF an = vv AND ans = uu AND drb = 3 THEN GOSUB 
440 : GOTO 4620 

605 IF an = vv AND ans = uu THEN GOSUB 680 : drb= 
606 IF an = ss AND ans = rr AND dre = 4 THEN GOSUB 
440 : GOTO 4620 

607 IF an = ss AND ans = rr THEN GOSUB 680 : drc = 
4 

608 IF an = pp AND ans = qq AND drd = 5 THEN GOSURB 
440 : GOTO 4620 

609 IF an = pp AND ans = gq THEN GOSUB 690 : drd = 
S : 

610 IF an = mm AND ans = nn AND dre = 6 THEN GOSUB 
440 ;: GOTO 620 

611 IF an = mm AND ans = nn THEN GOSUB 690 : dre = 
6 

612 IF an = kk AND ans = Hh AND drf = 7 THEN GOSUB 
440 : GOTO 4620 

612 IF an = &Ek AND ans = hh THEN GOSUB 690 : drf = 
7 

614 IF an = ff AND ans = gg AND drg = 8 THEN GOSUB 
440 : GOTO 620 

615 IF an = ff AND ans = gg THEN GOSUB 690 : drg= 
8 

616 IF an = dd AND ans = ee AND drh = 9 THEN GOSUB 
440 ;: GOTO 620 

617 IF an = dd AND ans = ee THEN GOSUR 695 : drh = 
9 

618 FEN #1,1 : LOCATE #1,an+2,1i-ans : PRINT #1,CH 
Ba (55) 2 GOSUB 370 

620 RETURN 

680 pm = pn + 10 : PRINT #3 5 PRINT #3, "Mine hitt! 
1i" . GOSUB 580 : RETURN 

690 pn = pn + 20 : PRINT #3 : PRINT #2, "Submarine 
Ade: COSUB S80 2 eRETURN 

695 pn = pn +:-30 2: PRINT #3_: PRINT #3,"Destroyer, 
great!!" : GOSUB S80): RETURN 

700 PRINT #2,CHR#(22)+CHR#(1) 2: IF an = = AND ans 
= y AND rd = 1 THEN GOSUB 420 : GOTO 720 

“701 IF an = z AND ans = y THEN GOSUB 780 : rd = 1 
702 IF an = x AND ans = w AND rda = 2 THEN GOSUB 4 
20s) GUT 720 
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70= IF an = x AND ans = w THEN GOSUB 780 : 

704 IF an = v AND ans = u AND rdb = 2 THEN GOSUB 4 
cme GOTOe7 20 

705 IF an = v AND ans = u THEN GOSUB 780 : rdb = 3 

7O6 IF an = s AND ans = r AND rdce = 4 THEN GOSUB 
20> S SOTO R720 

7O7 IF an = s AND ans = rf THEN GOSUB 780 : rdc = 4 

708 IF an = p AND ans = q AND rdd = 5S THEN GOSUB 4 
2Oy Sele ao 

709 IF an = p AND ans = q THEN GOSUB 790 : rdd = 5 

710 IF an = m AND ans = n AND rde = 6 THEN GOSUB 4 

EO eee eer ae) 

7iil IF an = m AND ans = n THEN GOSUB 790 : rde = & 
712 IF an = k AND ans = Hh AND rdf = 7 THEN GOSUE 4 
20° +) S0RRR720 

7i=z IF an = k AND ans = A THEN GOSUB 790 : rdf = 7 

714 IF an = f AND ans = g AND rdg = 8 THEN GOSUB 4 
20es GOUOE720 

715 IF an = f AND ans = g THEN GOSUB 790 : rdg = 8 

716 IF an = d AND ans = e©& AND rdh = 9 THEN GOSUB 4 
20s GOTO n720 

717 IF an = d AND ans = e THEN GOSUB 795 : rdh = 9 

718 FEN #2,1 : LOCATE #2,an+7,11-ans : PRINT #32,CH 

Rao ose O SUB om 

720 RETURN 

780 pm = pm + 10 : PRINT #4 : PRINT #4,"Mine hit!! 
Earn OU ic Ge sae eae 

7990 pm = pm + 20 : FRINT #4 : PRINT #4, "Submarine 

hat es. GOSUBS Sb0m =e TURN 

793 pm = pm.+ 30 : PRINT #4 : FRINT #4,"Destroyer, 
great!!" : GOSUB S80 : RETURN 
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GEOGRAPHY 


BRITAIN- PHYSICAL BRITAIN- TOWNS 
CAPITALS E.E.C. QUIZ WORLD FACTS 


The following five programs include a wealth of geographical information which will 
help improve a student’s knowledge of:- 


a) The British Isles, 

b) The European Economic Community, 

c) Capital Cities, 
and d) The geography of the physical world. 
The two programs of the British Isles use maps on the screen, World Facts and the 
E.E.C. Quiz program refer to maps in the book, whilst Capital Cities is a board game 
for two players. ; 
All these programs will require a certain amount of research and familiarity with maps 
and atlases, an area of educational learning that some students often find difficult, but 


which should be interesting. 


A feature of these programs is that they can easily be adapted to test knowledge of other 
geographical areas of the world or individual countries. 


BRITAIN-PHYSICAL 


STUDENTS- this program uses a screen map of England, Wales and Scotland. 
Do you know where the ‘Pennines’ are, or the ‘Solent’ is? 

Now is the time to put your knowledge to the test! (But have an atlas handy as well!) 
Alongside the screen map, is a blackboard onto which you type your answer. You will 
be given ten features to identify from a selection of thirty. You must collect as many 
points as possible. There are no clues to help you, so you really must know your Britain! 
Remember to press the TSNWieaism key after each answer. 


You will be told your final score. 


Your screen will look like this:- 
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POINTS = 19 





? Pennines 


Good 


1 REM britain-physical 

So OUMeE eeoor DIM EXesG) Se Ditmas Gs sae ii eaeteon 
os DIN pra 735) 2 DIM ret) 5) Dey ramp Cle ace ila att 

Ze SDE Put ee eh ta tea Cee me ee ST eater eine 

FoDIM Sats leek Dit abe. DIM Ge CS) Sebi beta 

2 DI Mab rCst Ser Die ienine ae eeDooh ems Is 

10°-MODE 1 

1S FEN -O sc INK O SO) EEN ay qoCLN ede coe sha Mec area 

epee) rh SLRS ARE Me ee 

16 BORDER. Geo: PARERS@ 

18 WINDOW #1,1,22,1,25 : WINDOW #2,22,40,1,25 

19 WINDOW #3,22,40,2,14 

20, RESTORE,.S00)..: sFOR-a.=).o) JO: 2S Senn READ bia tee 
AD cla) : NEXT a 

22 RESTORE 7900 = FOR ah = 0 70°16 = READ nat Cah) = 
READ pflah) : READ prfah?) : READ r(ah) : READ rmfa 
h) : READ pplah) : READ pn(ah) : READ rr(fah) : REA 
BD trnitaho 2 NEXT sah 

2o RESTORE 73S 2° READ) mat C17) se Reins Oe) Olona 
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READ aafah) : NEXT ah 

=/ RESTORE 740 : READ na#¥(18) : FOR ah = 16 TO Fil 
: READ aatah) +: NEXT ah 

SOSRESTORE, 245. = FOR can =) 19) 1D 22) SSREAD! natian? 
: READ ab(ah-19) : READ belah-19) : NEXT ah 

=i RESTORE. JaO. FOR ah = 22 70 20) 2 SREAD’ nat cCah> 
: READ beCah) : READ bf(ah) : READ fgfah) : READ Ff 
b(ah) : NEXT ah 

23 GOQSUB 350 : LOCATE #2,4,4 : PRINT #3,"FACTS ABO 
WTS = PRINT #ESs PRINT) #52 PRINT #2,“ BRITAIN 
Sere Eten OMe ere Het ree ee a TOC ee INET, Gt 

Foe pte = ©: 

40 FOR bm = 1 TO 10 

Ace Set eerie St tee wees 452 SO SuB. sso 

45 s = INT (RND*¥=21) 

50 GOSUB 425 

GOS FEN He. =0° LOCATE, Het 512s PRIN He, POINTS =e" 


spt 

70 IF s <= 10 THEN GOSUB 450 

71 IF s == 11 AND s <= 16 THEN GOSUB 490 
72 IF s = 17 THEN GOSUB 440 

74 IF s = 18 THEN GOSUB 4465 

76 IF s == 19 AND 5s ¢= 232 THEN GOSUB 470 
78 IF 5 >= 22 AND s <= 3O THEN GOSUB 480 


es PENSHSs 2: 22 LOCATE +S), 1 2a8CPRINTS 42> ERENT He 
: INFUT #2,ans? 
130 IF ans# = na#¥(s) THEN 200 
125 PRINT #3 : PRINT #2,"No, answer is" : FRINT #3 
wnat (s) 
Tse POR) t= soT OP So0ors> NEXT) £ 
Peo SiSete sseiGUiiG ts0 
200 QCATE. #2158) seF RINT, #3, 7 Go0d> 
205 GOSUB 200 
20 (AOR = eT OOO Or 2 NE Xie st 
217 pq = LEN(Cans#) 
218 pt = pt + pq 
Seon CRS. #5 
220 NEXT bm 
250 CLS #5 : FEN #2,2 : LOCATE #3,1,4 : PRINT #2," 
Final Score" : PRINT #2 : FRINT #2,pt 
260 PEN #3,3 : LOCATE #3,1,8 : PRINT #23,"Type run 
far ten more questions" : END 
S00 FOR tt = 1 70 5 : SOUND 1,42,20,7..2 FOR st 
TO. 2OG- sn NEXT tig NEXT £t23-RETURN : 
350 PAPER #2,1 : CLS #3 : PLOT 375,9,1 : DRAW olay 
176,1 : DRAW 410,176 : DRAW 390,0 : DRAW 275,09 
360 PLOT 610,0,1 1 DRAW 590,176 : DRAW 575,176 : D 
RAW 5S95,0 : DRAW 610,0 
370 RETURN 
25 PEO (HCO rsc COX st 


i 
ra 
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4350 FOR 2 = 1 TG 222 2 DRAW be) ,ckz Sa 
432 NEXT = 
440 PLOT bt223) ,c (225),1 3 FOR y= Beate 22eree De 
AW bly) ,cly),1 : NEXT y 
442 PLOT ib (229) Getveee, Tie tFORGKde=2220 TOr225' 2 eDR 
AW E:GeRmeiGe 7, Lessive A Ties 
445 RETURN 
450 FOR © = O'TO 4°: FOR f° = © 70°4 *s PED pts? te, 
pr(s)+f#,2 : PLOT r(s)te,rm(s)+f +: PLOT pp(s)te,pn( 
s)+f : FLOT rr(s)t+te,rn(s)+f 2: NEXT f & NEXT e 
S32 RETURN 
A505 PLOT aatO) gaath) 2 = FOR mt } 2°71 > Steere. 
DRAW. aa(mt),aa(mt+1),35 2: NEXT mt ¢ PLOPlaatlorjaat 
11),3 : DRAW aa(12),aa(is),2 : DRAW aa(14),aa(is) 
: RETURN 
465 PLOT aa(16),aa(17),3 : DRAW aa(18),aa(l9),3 : 
DRAW aa(20),aa(21) : DRAW aa(iB8),aa(19) +: FOR mt = 
22 TO Si STEP 2 : DRAW aatmt?),aatmttl),3 2: NEXT m 
t : RETURN 
470° FOR e@ = © TO4 sVrPGR 43=" Go Tbr 4 sPeol vabteaie? 
+e be(s—-19) +f, 2: NEXT £9: NeXt jee eRenURN 
480 FOR-e = 6 TO 2 : |FORsf ="“OF TO 2 2 RECT Bete)ste 
»Dftei+f,2 : PROM fateiteyty (soe f52 2 NEXT eS a Nex 
T e : RETURN 
490 FLOT p(s) ,pr(s),2 : DRAW r(s),rm(s),2 : DRAW p 
p(s),pn(s) : DRAW rr(s),rn(s) : RETURN 
500) DATAZ TOO. 9. boo), 12, 1 VO Wey L207 SO Sonos lea oo, 
146,52,;140759 145; 607150762 7155,,61 , 1605635, 165,601 
FO Od 9 Lec eat Lie Dig) AO) gil hay pga pet a Oly) dpe ere OS gl oat ere ape 
O78 51755 Tog l ZO 70s LOO, SOR a Sign Malaga (as Uist er yearns) 
mee 
210 DATA 1238,80,137,84,1322,82,128,84,120,76,115,75 
pd cts 7 ig tld 7 clig WON ry pasa Lely dig Ch) atl CC let gh LOL my 7 Orato mmmer cetie 
130,102,142, 112,142,120, 140,128,130 123, 12s yl22, 14 
0,142,145,145,148,148,150,146,160,149,169,145 
S20 DATA 165,150,165,154,174,148,175,150,167,155,1 
G6n LOR bieie lL OGe lor LoS 
Sek Olen OFM Aie Oba War red bar OE ll Ato Ae Glee CeO Iblehses Gh Ze | SRT 3 4h 
Paro alecehs aster Kari Stair thus TRS eye Massy Sh rASly ihe) A018, Ala Si 
ye Ne LE ig Dig Linc Oly sed alg eed Ogee tng, Dendy eee rem tert) een cles dunt 
OT 12S p20 oni 4. oe 
S40" DATA TiS, Zot y LOS wee ly We gee der gt ge eee gr tee nL 
20 5240), LO, 2ace UI OSB SOMOS 2 Ome Meg oot yaa eo mes 
Og Pes Og Pewee 7 Ng LO Tigre ee ppg nee hati oP Oley 7 heii erie eae 
Se Se Osean 
DIO DATA 82,5285, 76,2397 ,G5., 2760750 g279 yoo goon Teele 
Oy Tyg RO: greg CN gyn gi Zeer git leg Nec weer Leng On ee) Fan a) ae ge 
66, 3235767, S275 Fug Salis 704 Sela ag or ie SO Ow yee ae) 
ig re er Ola eles 


560 DATA 98, 221,90,325,90, 329,95, 328,90, 552,95, 3255 
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19725 245,596, 540,96,245,100,2744,106,346,101,254,105, 
Ra elit Let gern) 

S/O DATARS LNORSoS. Le0.a TO GO*, 274), 059,570,155, S42 ,1 
AO Pee ee toy DOO, IEOwsar LI, oa, POO sea, 180 
gOS iL 7a, 22O RSs, 206), (S57, 262, 165,284,172,278,160,2 
Meg HOS nal hese Omin l cceckenl 9 dur Cy Gc 

SSORDALA MSO s2ou als 20a eel, S08 oo toy yaa 7 awo eS 
44,192, 242,188,252,172,240,176,228,174,240,172,258 
PRL OOO dese lie chs ke 

I70 (DATA 266, 157,270,145, 275, 147 (2895 ,147,2°90,145,5 
Ween, SO. Oe SOO SBI, SGoq7S 204,90, 274.84 
Wedepee LOO ,e0 7202, 84,5 281,80), 50284, 299778 , 20174, 
291,65,290,60,271,49,266,52,250,50,249,46,225,48,2 
24 ,50,225,45,205,29 

COM AT rire Ore ctrl 7h ge taal Se eS Oi icin HEC ree geliene yee 
Re eee ne Og Wok ee gk ig Ate Lee M7 api ene) aplean e leley splot 
MAS AT MEAS aie gel AEE hay ted lrg sein LAs): Peleg mlity ce atte Int nats 

610 DATA 226,43,2223,40,230,27,225,27,229,40,236,45 
G20 DATAGLAO IAS, bes (se, tes, 1425122 145, al, vee yal 
25,148,140,145 

FOO DATA Atlantic Ocean, 10,340,40, 220, 20,290,50,26 
O,North Sea, 240,270,270, 310,269,240,270,220, Irish 

Sea, TSO) 20, 1etO ahs, L220 h/t So. leo 

705 DATA English Channel ,170,10,220,20,190,15,250, 
ao 

715 DATA Brecon Beacons,170,82,165,85,157,909,150,9 
4,Cambrian Mountains,150,195,152,112,155,120,158,1 
Se OM 1 Letseta het daly Sly el Sig Seige lg Fg ENS y HO ape At wy 7g et S 
wold Hil1ls,195,90,198,98,205,190,208,195,Fennines, 
ENO) D) ile sale lets ioe ie Aes ae ihe paige eB ea he 

717 DATA Southern Uplands,160,245,152,238,145,235, 
35,225,Grampian Highlands,140,305,150,312,160,220 


4 feign 


720 DATA River Tyne,177,220,177,224,203,226,183,22 
S,River Mersey,175,149,185,147,188,148,185,144 

725 DATA River Trent,192,145,202,140,220,148,230,1 
74,River Towy,142,190,141,95,1271,89,128,84,River C 
lyde,129,224,132,245,125,244,120,240 

720 DATA Great Ouse, 224,110,248,112,258,124,265,15 
7 

73a DATA River Thames,200,79,218,74,228,79,236,735, 
235, So—206 784,216 5,80,217,74 

740 DATA River Severn,215,107,195,100,193,88,191,1 
NOLS Ll a k i aig kh bois b7 Ot LOL os, TOS 

745 DATA The Wash,262,144,Solent,225,44,Isle of Wi 
ght ,225,28,Anglesey,121,145 

750 DATA South Downs, 250,69,285,65,North Downs, 260 
570,279,759, The Weald,255,67,275,69,Exmoor ,147,55,1 
57,47,Dartmoor ,145,25,150,28,Mendip Hills,182,67,1 
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87,70,Lake District,168,200,158,203,The Fens, 263,1 


Sag oes Le5I7 


BRITAIN-TOWNS 


STUDENTS- this program also uses ascreen map of England, Wales and Scotland. A 
town is marked in red on the map and you have to work out which town it is. You are 
given one clue: the first letter of the town. You will be given ten towns to identify, and 
you must collect as many points as you can- the number of points awarded depends on 
the number of letters in the name of the town. When you type in the town, remember to 
put the first letter as a capital letter, otherwise it will be incorrect. After ten towns, you 
will be given your final score. 


Your screen will look like this:- 


POINTS 5 
c 
? of 
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1 REM britain-towns 
SeDIM= bi C2360" &) DIM e260" 2+ DIM nat(4So> + DIMep (45 
22 BM e450) se DIM abs(45) 
10 MODE 1 
io iN Oe Sei os Once ae tle ae ol Ne re oes PEN se so IN 
ee Orewa Nass) ONES men, cet 
14 BORDER © : FAFER oO 
18 WINDOW #1,1,22,1,25 
20 RESTORE S00 : FOR a 
AD c(a)d : NEXT a 
20 RESTORE 700 : FOR k = 0 TO 45 2 READ na#¥(k) +: R 
EAD p(k) : READ r(k) : READ ab#(k) : NEXT k 
Sor pba Snip 
40 FOR bm = 1 TO 10 
45 s = INT (RND#45) 
30 GOSUB 425 
oo PEN #255 :—- LOCATE #2, 151-2 PRINT #2,"POINTS =" 
spt 
110 FOR e = 0 T0 4: FOR f = 06 TO 4 : FLOT pl(s)te, 
Csi chtiee SNE Ke oy fe MEX 
120 PEN #2,2 : LOCATE #2,2,98 : PRINT #2,ab#(s) 
125 PRINT #2 : FRINT #2 : INPUT #2,ans2 
120 IF ans = na¥(s) THEN 200 
125 PRINT #2 : PRINT #2,"No, answer is" : FRINT #2 
yna®t (s) 
Poo One — le Noes O. ae NE Ter tc 
140 GOSUB 200 
aC CUS tte =. GOTO, 280 
200 LOCATE #2,1,20 3: PRINT: #2,¢Go00d" 
SLO POR Mee == lo nOr sous smNE Xian 
215 GOSUB 200 
217 pq = LEN(ans#) 
218 pt = pt + pq 
220 CLS #2 
220 NEXT bm 
20. CLSS#eos PEN. #2 our ZOCANEy Fe yd Se aeRO = es? 
Final Score" ©: "PRINT #2.) QPRENG Sa, pt 
260 FEN #2,2 : LOCATE #2,1,15 : PRINT #2,"Type run 
for ten more questions" : END 
200 FOR e =0 TO 4: FOR f = 0 TO 4 : PLOT p(s)te, 
mts) +4) Oss. NEXT fs NEAT @) s RETURN 
S20 PLOT b«Od ero) 41 
420 FOR z = 1 TO 222 : DRAW b(z),clz),1 
ee ales 
440 PLOT b(222) ,e (225) ,1 3: FOR y=" 224-TO 228. : DR 
AW bly? ,cCy),1 +: NEXT y 
442 -PL0T bC229) ,c (229) ,1 2 FOR xX =-250) 70° 2285.27) DR 
AW b(x),c(x),1 2 NEXT x 
4435 RETURN 
500 DATA 100,8,100,12,110,18,120,30,130,40,133,50, 


WINDOW #2,23,40,1,25 
O TO 235 : READ b(a) : RE 


ti as 


ts 


140,52,140,59,145,60,150,62,155,61,160,63,165,60,1 
70, 61,175,63,177,70,180,75,185, 80,192,88,185,82,18 
0,788,173, 75,170, 70, 160,70, 1535725453577 150579, tse 
75 
510 DATA 138,80,137,84,132,82,128,84,120,76,115,75 
,115,78,111,75,107,83,111,86,108,86,1097,90,120,95, 
150,103, 142, 142,142, 120, 140,128,130, 125,125 422,14 
0,143,145,145,148,148,150,146,160,149,169,145 
520 DATA 165,150,165,154,174,148,175,150,167,155,1 
Sibi, WOO WTS gAliGP lie Le OS, 
520: DATA W6Ysa7 Rae WSOs WOLD SOs Ne BUS i Sie 
725190, 16851865 167 /1SSat6s, 1825461 1905 TSO 7200, tas 
SOLO gtGOg ers. tO, SiS, PAO. SOG pao OS leo die eae 
CD/Le py lichens a lettr ge bes 
BAOL DATA da Spe Ode, LOSis ed Sel liOls aah Shed ys eae te 
SO, S40 Ome son LOneoO, LOL 26a, Fe aol Seige le cmaeey 
07, 95,260 9S, 270% HOY SOO ,92) © 8S, C08 2795 SS, 27 Ai, Omer 
Caio aee One ase 
SSO) DAA SS 2S Sige Gig ee 5 ely cea re CH gre rg hg ND tg ae rene 
BEG, BOy al LEO. S09, 7 at Omer oe Gal 5 7 OOM ten eae 
SS peg OF ye Lig Tig Ca he Lay Porting eRe Zip ug CN Sp BoE a ES 
Sere On SOc 
BOW DATA Pay Sst FO rt aig 7) yc ye iy otc igi hg eau cnae (geen mnt 
99g 245,96, 240,96,545,100,244,106,246,101,354,105, 
ies aly 1 Oca gene) ‘ 
270 DATA TITO. S68. 120,570, 1 OO ar ty da sO doy ere 
AV chee al Sieg ak iy kl) wey IneThg eses guliy We) menmenteyin de Ch amenncs <iram Enea! 
ee Feat Ory Gime OO ig Mie gto gL Oly tar ig Lee gery ware oly ae 
WO lol, foo, LAS geoG. aay ola HOg ees 
Seu DATAMTSES, 2656 2h5 9205, 220 cS go imnloriyn ee am ce ees 
44,192,242,186,252,172,240,176,228,174,240,1723,258 
5160,251,151,254,142 
399 DATA 266,137,2790,145,275,147,285,147,3290,145,2 
OD VSS, SOA DSO AO POd sey FP yee Pel mneler yoo Oe erie 
258,82, 268,80, 282,84,281 ,80,302,84,299,78,301 ,745 
291 ,65,290,60,271,49, 266,523,250 ,50,240,46,225,48,2 
2A IO pt ly Ae 5 2 Oey > 
600 DATA 208) Sag 745247192631, 19D, Son 180 S7, lao, s2 
pl 08, 20, 135,26 128i ee, DS et She See rl eyed Sin A certs eae, elects 
118, LOs1 Te sie opel Ont Seis eile COs, Sere 
610 DATA 226,435),233 AOD peo, os 7 ees’ 72205 FO gee 4 
620 DATASI4O, 145 US2 ,1e3, 125,142, 1221455) Swot 
35,148,140,145 
700 DATA Fart William,108,200,FW,Aberdeen,185, 320, 
A, Dundee, 165,287,D,Edinburgh,157,258,E,Glasgow,130 
,200,6,Aye, 120,2358,A,Carlisle,165,213,C,Newcastle, 
195,225 MN, Ducham,;200,212,.p 
710 DATA Middlesborough, 217,207 ,M,York,208,185,Y,8 
lackpool ,166,172,8,leeds,200,177,L,Hull ,242,177,H, 
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Liverpool ,168,154,.,Manchester ,188,160,M,Sheffield 
Pe Oaigal ay is 

729 DATA Lincoln,238,155,L,Bangor ,142,143,B,Cheste 
r,173,140,C,Nottingham, 218,141,N,Derby,212,1246,D,F 
eterborough,248,126,P,Cambridge,258,113,C,Northamp 
ton, 227,112,N,Birmingham,194,130,B,Coventry, 204,11 
8,C,Worcester ,190,110,W 

720 DATA Aberystwyth, 143,115,A,Hereford,183,102,H, 
Gloucester ,198,93,6,0xford,225,90,0,London,253,92, 
L, Swansea, 150,80,S,Cardiff,175,77,C,Bristol ,190,75 
»B, Taunton,170,55,7, Exeter ,163,36,E,Flymouth,140,2 
6,P,Bournemouth, 215,44,8, Southampton, 225,52,8 

749 DATA Fortsmouth,230,50,F Brighton, 262,55,8,Nor 
ica ble a ae ee ee i ee 
a 


CAPITALS 


A game for two players. 


STUDENTS- this game will help to teach you the main capital cities of the world. On 
your screen, you will find a games board and the idea of the game is to travel along the 
pathways as quickly as you can. 





Tony. Dice thrown is a 5 
Capital of Italy ? 
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Before you can move, however, you must wait for a computer dice to be rolled to 
determine the number of places you may move if you get the right answer to a capital 
city question. If you give a wrong answer, you will be told the correct answer but, of 
course, you are not allowed to move. Try to remember this answer as it may arise again. 
The first person to 55 in the top left-hand corner is the winner. 


1 REM capitals 

10 y# = CHR# (142) +CHR# (143) +CHR# (145) 

15 DIM b#(446) = DIM c#(46) 3. DIM p(SS)) 5, DIM mss) 
= Dilleassse sin qaigsse 

20 RESTORE S00 : FOR d = 1 TO 46 : READ b¥(d) =: RE 

ADT G2 Cel) is) NEXq dl 

25 RESTORE 5SS© i FOR @ = 1 TO SS i 7READ ‘pite) = IRE 

D n(e) : READ qe) : READ qq(e) : NEXT e 

SOU PEN Cy Feuec Ngee 5 EN Sot tee OE Nats ii) ede rosea aia 

Roms eaee Nien ose iste eg eae 

40 WINDOW #1,1,40,1,25 : WINDOW #2,1,40,22,25 

So GES 41 “= FEN Sf PRINT #1, "FPlaver i whet ws ve 

ur name" : INFUT #1,pli# 

Sy i trate 

60 PRINT #1 : PRINT #1,"Player 2, what is your nam 

e" : INPUT #1,pl24 

70 GOSUB 380 

OO Sola es ols ed 

1G0 BORDER, 0 = PAPER O : EES 

110 GOSUBR 400 

120 CLS HS s OPENS 2): PRINS, ples GUStibe sos 


120 h = INT (CRND*46)+1 : PRINT #2,"Capital of "bt 
h) : LOCATE #2,24,2 : INPUT #2,gh# 

125. [TR lght 7= "ctthes THEN So 

140 CLS #2 : PRINT #2,"No, answer is “sct#th) : GOS 
VEE se0 7s Sole e20G 

150 LOCATE #1,p(pli),n(pli) : GOSUB 448 : FRINT # 
1, CHRE(142) 3: pli = pli + dic =: GOSUB 465 : FEN #1 
,2 : LOCATE Fl pp liven (el ie Se PRN 4S CHRe Cost) 


155 GOSUB 480 
160 GOSUB 380 : CLS #2 : GOTO 200 
200 CLS #2: PEN #2,3 : PRINT #2,pl2#; : GOSUB 390 


210 h = INT(RND*¥46)+1 : PRINT #2,"Capital of "sb#¢ 
Hh) : LOCATE #2,24,2 : INPUT #2,gh# 

215 IF ght = c#(h) THEN 230 

220 CLS #2 : PRINT #2,"No, answer is "sc#(h) : GOS 
UE S8O"3" GOTO? 120 
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230 LOCATE #1,q(pl2),qq(pl2) yr GOSUB 456 : PRINT # 
1,CHR#(143) : pl2 = pl2 + dic : GOSUB 490 : FEN #1 
»2 : LOCATE #1,q(pl2),qq(pl2) : PRINT #1,CHR# (221) 


sow GOSUB 480 

240 GOSUB 380 : CLS #2» GOTO 120 

380 FOR t = 1 TO 2000 : NEXT t : RETURN 

390 dic = INT(RND*7) : PRINT #2," Dice thrown is a 
sal © Sain Lak 

400 FOR a = 2 TO 38 STEP 6 : FOR b= 

6 : FORse =.0 TO 2b:-LOGATE #1,a,b+c 


2 TO 20 STEP 
PRINT #1,y# + NEXT c : NEXT b : NEXT a 


PEN #1,1 : 


Ch 


TO: 20--STEP 
FEN #1,2 : 
NEXT c : NE 


410 FOR a = lOm@sS Shier rors EORF be= 

o> TOR foe= GO) TO 2a) LOCATE i sar, bite 

PRINT #1,CHR# (143) CHR# (143) CHR# (143) 
XT 6b : NEXT a 

Gos Pen ed =. Ose) 22 tee ORE big OF TO ey ps TEEN eles arses [le 

OCATE #1,28+a,5+b : PRINT #1,CHR#(1423) : LOCATE #1 
»-8ta,17+b : PRINT #1,CHR#(145) : LOCATE #1,2+a,11 

oes) PRN T ese) Chin Cl Ay er NE XK Tues INE X Teret 

420 RETURN 

448 pu = INT¢(pli/2)*2 

449 IF p(pli) = 28 AND n(pli) = 18 THEN FEN #1,1 : 
GOTO 455 

430 IF p(pli) = 2 AND n(pli) = 12 THEN PEN #1,1 : 

GOTO 455 

431 IF p(pli) = 28 AND n(pli) = 6 THEN FEN #1,1 : 

GOTO 455 

se ie pve old THEN PEN sili. PELSE cRPEN Dai 

435 RETURN 
436 IF q(pl2) 
: GOTO 4760 
457 IF q(pl2) = 3 AND qq(pl2) = 12 THEN FEN #1,1 : 
GOTO 4706 
438 IF q(pl2) 
GOTO 470 
4650 pu = INT(pl2/2)*2 

465 IF pu = pl2 THEN PEN #1,2 ELSE FEN #1,1 

470 RETURN 

480 ,SRUND 1, 2600, 20 77 GOR ti = 2 TOP SOc NEES 
: RETURN 

495 IF pli = SS THEN CLS #2 : FRINT #2,p11i#3;" you 
win" : END 

487 RETURN 

490 IF pl2 3= SS THEN CLS #2 : FRINT #2,pl2#3;" you 
win" : END 

497 RETURN 

300 DATA United Kingdom,London,India,New Delhi ,Sri 
Lanka,Colombo,Kenya,Nairobi ,Nigeria,Lagos, Zambia, 

Lusaka,Canada,Ottawa,Bahamas,Nassau, Barbados, PBridg 


29 AND qq(pl2) = 18 THEN FEN #1,1 


39 AND qq(pl2)-= 6 THEN FEN #1,1 : 
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etown,Bermuda,Hamilton,Australia,Canberra,New Zeal 
and,Wellington,Austria,Vienna 
505 DATA Belgium, Brussels,Bulgaria,Sofia,Czechoslo 
vakia,Prague, Denmark ,Copenhagen,Finland,Helsinki ,F 
rance,Faris,West Germany,Bonn,East Germany,East Be 
rlin,Greece,Athens,Hungary,Budapest 
510 DATA Iceland,Reykjavik,Italy,Rome,Luxembourg,L 
uxembourg,Monaco,Monaco,Netherlands,Amsterdam,Norw 
ay ,0s10,Poland,Warsaw,Portugal ,Lisbon,Romania, Buch 
arest,Spain,Madrid 
515 DATA Sweden,Stockholm,Switzerland,Berne,Russia 
, Moscow, Yugoslavia, Belgrade,China,Feking, Israel ,Je 
rusalem,Japan, Tokyo,Egypt ,Cairo,USA,Washington,Uru 
guay ,Montevideo,Peru,Lima,Colombia,Bogota,Argentin 
a,Buenos Aires 
SO) DAG wetyg leg ge Lg ilg dg Ogi Lig ot Thee Ula teed 
gk ig ee Ugo tess gece Lege 7iig reece hig cede ghee Nigra Mingus inter ling cee tee L grec AP ah pe 
6,21,27,21, yale 30,21 522,215,324 21 5355215 Ole eda Stly 
pin? shane ges 18,29, 18 
Doo DATA S00 15 fe pla colplicl g SOy kel ge ly ely hotly erg to 
aria eile gl Lich. gcc gra ike A) AR a eNO D mL medina Acre LEZ. nari rele ae 
Se Mig Ae icity el city lt Lian Le lie dca Ml celia Cl gig a) Lt ghd ie tae! Co) melo yee 
BL leg cS) ghee err due 
SES) VV NGA wey 97 gfe gl Dig iam 7 ahah? CO aise ae pte a iia) Lior a7 gel ee tee ) 
BF et Lol aa Pig) WS a Pg neg 7 Braet 9.23,9 eee peer ESS Dik! oer) eh EA, 
peas (ss sa oe eS Fe RS hPa EET, LD gl HSE ig SD ig EN gl gS gy og, 


q 
2 
SOS DATA 355 35 2G5 Sy Soy By Bey og BIg By 50g By 2g By 27g Sy2 
oS (eae 20; 3 ZR ATS, Pe sS 14S Se 1iie, f2eys,9 


4 at 
= —~ ee era 
2S, PEL SPS) Seep acd 


E.E.C. QUIZ 


A game for two players. 


STUDENTS- this is a general program to test your knowledge of the E.E.C.(European 
Economic Community) ... their names and positions ... capital cities ... populations ... 
main rivers ... and the surrounding seas. The questions all refer to the numbered map of 
Europe. When you have typed in your answer, remember to press the key. 
You will each be asked ten questions and points will be awarded randomly for each 
correct answer. At the end of the game, the final points and the name of the winner will 


be displayed on the screen. 
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‘ b/ib/z6 

















Tony | 
1 out of 3 


EEC Points 2 


Quiz 








Tony your turn 


\E What is the name of the an Bt) 
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Ts 


ern toh yee - 


eore ' 
artes 


NO 
Main 
Rivers 


8 
Capital 
Cittes 






1 REM eec 

8 DIM k#(58) 

10 at = CHR#(142)+CHR#(1423) +CHR# (143)+CHR#(143) : 

b# = CHR#(143)+CHR# (143) +CHR# (142) +CHR# (143) +CHRS ( 
143) 

12 c# = CHR#(214)+CHR#(143)+CHR# (212) : d# = CHR ( 

213) +CHR# (142) +CHR# (215) 

20) FEN O08 ENED OF 26) 2@PENe = eo LNG ew cores heimcemcs | cls 

RO ce lee INES ee L inme rere 

20 WINDOW #1,1,40,1,25 : WINDOW #2,1,11,1,16 

35 WINDOW #2,12,27,1,16 : WINDOW #4,28,40,1,8 

40 WINDOW #5,1,40,17,25 : WINDOW #6,28,40,9,16 

SO FOR a = 1 TO S58 : READ k#(ad +: NEXT a 

60 PAPER #1,2 : CLS #1 : GOSUB 400 

62 FARPERGHS,o ¢ CES F252: COGATESHS, 2c -) FEN #250 
: PRINT oe 2 OE EY BUCA Ae oh) Samet rete e tertel 
Tee 

65 FEN #5,1 

70 PRINT #5,"Give me your names" 

72 INFUT #5,"Flayer 1"3na#t 

74 INFUT #5,"Flayer 2"3nam# 

80 FRINT #5,"Answer 10 questions each." : PRINT #5 


, ‘Foints will be randomly awarded for a correct 
answer." 

85 FRINT #5,"Hit any key to start" 

90 hf = INKEY# : IF hf = "" THEN 90 


PLOCCS =O 8 Gyues Oge. iy c= 40 pee bi CO) so oie Cements 
2 = 0 

120 GOSUBR 780 : GOSUB 390 

12> PAPER, to, 2 GES #5 

125 « = INT ORND#58) +1 

130 FRINT #5,na#3" your turn" 

tooe GUSUBRS a0 

140 PRINT #5 : INFUT #5,ans¢ 

142 bb = bb + 1 

145 IF ans# = k#¥(x) THEN 150 

147 PRINT #5,"No, answer is "“sk#(x) 
148 GOSUB 300 : GOSUB 380 : GOTO 170 
150 PRINT #5,"Yes, well done. Bien. Qui." : y = IN 
TCRNDSS) 2 os pit sap tele ey 

PS 2o eC Meee yf 

155 GOSUB SSO = GOSUBTSO0 

170 EES 4a 

172 «x = INT(RND#¥58) +1 

175 PRINT #5,nam#3" your turn" 

L77 Go SUB aay 

180 FRINT #5 : INPUT #5,ans# 

TES Di Date 

190 IF ans? = k#(x) THEN 200 

195 FRINT #5,"No, answer is "sk#(x) 
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197 GOSUB 300 : GOSUB 290 : GOTO 207 

200 PRINT #5,"Yes, well done. Bien. Oui." : y = IN 
TCRND*¥S)+1 3: pt2-= pt2 + y 

205 ¢ = c¢ + 1 : GOSUB 290 : GOSUB =00 

207 IF b = 1090 THEN 215 

210 GOEOSGt22 

aoe GES 28S e eP Rat Nilget ocak aie Aye Sr GiUskTe- Ss" 
220°PRINT #5 s PRINT #5 nate =<" pti 

225 PRINT #5 s PRINT #5,nam#3" = "spt2 

e IF pti = pt2 THEN FRINT #5,"SCORES EQUAL" : EN 
eo2 IF pti =< pt THEN PRINT #5,nam#;" YOU WON. WEL 
EEPONE. “or END 

224 PRINT #5,na#;" YOU WON. GREAT." : END 

SOO CPOR. Gas 1 al Or S500 os “NEXT ob os RETURN 

300 REM question 

251 PRINT #5 


pee Lge bot 


1 AND x #<£= 10 THEN 3640 


So4. IF x 11 AND x 2= 20 THEN 263 
Bo6 IF x 3= 21 ANDSx 30 THEN 266 


roe) ol Faye 21 AND x <= 47 THEN 369 
mein oL Fylaghe 48 AND x «<= 58 THEN 372 
560 FRINT #5,"Name the country (¢("“sx3s")" : GOTO 375 
362 PRINT #5,"What is the population, in 
Mig wonsey Co puso esse) VOses 7 
366 PRINT #5,"Name the capital ("sx3")" «= GOTO 2375 


hi a a 


469 FRINT #5,"What is the name of the river ("3x;" 
De SOTO) 27S 

372 PRINT #5,"Name this stretch of water ("sx3s")" 
Sei 7s 

3735 RETURN 

3280 REM player one 

381 FAFER #4,3 : CLS #4 

382 PRINT #4,na# : PRINT #4 2 FRINT #4,cc3"“out of" 
3bb 

384 PRINT #4 : PRINT #4,"Points “sptil 

286 RETURN 

390 REM player two 

391 FAPER #6,2 : CLS #6 

292 FRINT #6,nam# : PRINT #6 : FRINT #46,cs3 "out of" 
35 

394 PRINT #6 : PRINT #6,"Points "spt2 

396 RETURN 

Z00 PARER to,. 2) GUS #5 s COCATE #3, 55 2.05. PEN: #5. 1 
? PRINT #3,62 =: LOCATE #2,4,6 : PRINT #3,a% : LOC 

ATE #2,3,10 : FRINT #23,b% 

405 (FO0R¢m = 2. 1010 (LOCATE #3, 8,m<«: PEN #5, -2 4F 

RINT #2,CHR#(143) : LOCATE #2,9,m : FEN #3,0 : PRI 

NT #3,CHR#(142) : NEXT m 
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410 FEN #3,0 : LOCATE #3,10,2 : PRINT #5,b4 % (OER 

TE #35,10,6-: PRINT #3,af : LOCATE #2,10,10.: PRINT 
#3,b% 

415 PEN #3,2 : LOCATE #35418. Ss PRINT 43 JCHRS (214) 
vate ats CHRE (215) 2: LOCATE #3,2,12°2 PRONG te e+ 8: 

LOCATE #5,2,13 -: ERINT=#33c? © PRINT #5,CHR#(s2)sa 

# : LOCATE #2,3,15 : FRINT #23,d# : LOCATE #2,4,16 
: PRINT #2,CHR# (212) CHR# (212) 

420 LOCATE #2,12,12 : FRINT #23,d¢ : LOCATE #3,13,1 
& 2 PRINT #2902 “: “LOGate Hayle f4 Sse RING SS, CP oe 

EOGATEVHS  LejtS J.P RIN) feet s) LOCATE HS le yl 

PRINT #23, CHR#(212) CHR# (212) ; 

425 RETURN 

S00 DATA West Germany,France,Italy,Netherlands, Hel 
gium,Luxembourg,United Kingdom,Ireland,Denmark,Gre 
ece 

505 DATA sixty one,fifty three,fifty seven,fourtee 
n,ten,one third,fifty six,three,five,nine 

319 DATA Bann,Faris,Rome,Amsterdam, Brussels,Luxemb 
ourg,London,Dublin,Copenhagen,Athens 

515 DATA Danube,Rhine,Weser ,Elbe,Seine,Loire,Rhone 
, Garonne, Meuse,Fo,Tiber,Rhine,Maas,Maas, Thames, Sev 

ern, Shannon 

S20 DATA North Sea,English Channel ,Bay of Biscay,M 

editerranean Sea,Adriatic Sea,Ionian Sea,Tyrrhenia 
n Sea,Aegean Sea,BRaltic Sea, Irish Sea,Atlantic Oce 
an 


WORLD FACTS 


STUDENTS- do you know where the ‘Gobi Desert’ is, or the ‘Doldrums’ are, or 
where the ‘S.E. Trade Winds’ blow? In this program, there are 32 world geography facts 
that you should be familiar with, and you will be tested on any ten of these. 
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SI5vs-TTYOM 
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A number will appear on the screen relating to a position on the map. Locate the 
number and then type the name of the appropriate feature onto the screen. Remember to 
press the ENTER key. The program responds with music and a flashing screen of 
different colours for a correct answer. If you give a wrong answer, you will be corrected. 
Your current score will be displayed at the bottom of the screen which will look like 


this:- 





The number is 22 | 
Name the river 


| 
TYPING TIP 


Make sure that you type your DATA lines correctly, otherwise there will be some 
dramatic program changes! It is worth spending time to check each line of type. 


PROGRAMMING HINT - <<, <=,>,>2= 
What do all these relational operators mean? They appear between lines 80 and 135 in 


the ‘World Facts’ program. The symbols are usually used in anIF.... THEN situation 
where lines are being compared. For instance:- 





IF m>=1 ..... means IF m is greater than or equal to 1 
TiEame> leet means IF m is greater than 1 
ERM: means IF m is less than 1 

IF m<=1 ...05 means IF m is less than or equal to 1 

TEAM lees s means IF m is not equal to 1. 


Try to use these relational operators in your programs. 


1 REM world-facts 

LOO DEM Ga siCece 

20 PENG@) > TNE O04 Onis BEN Bi INE D226) sees satin 

Ko eh pte ie NS ae N eaes ary 

2o WINDOW #1,1,40,1,25 : WINDOW #2,4,37,3,7 : WIND 

OW #3,8,22,10,14 : WINDOW #4,14,27,18,22 

20 POR a = 1 NO -22 3 > READ Ss Cal) SNE oh ea 

40 BORDER’ 2° 2° FAPER HT, O 2 PAPER -#2, 1: PAPER fa, 2 
: PAPER #4, 57°78 (ELS $i 2 ees he SES Tees PEL r as 

45 C= 0 og = @ 
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SO m = INT(RND*¥22) +1 
SS IF g = 10 THEN 280 
60 g = g +.1 : PEN #2,0 


65 LOCATE #2,5,2 : PRINT #2,"The number is eon 
79 LOCATE. #295,4.%- FEN. #2,0 

BO IF m = 1 AND m == 5S THEN GOSUB ZOO 

85 IF m == 6 AND m <= 8 THEN GOSUB 310 

90 IF m == 9 AND m <= 11 THEN GOSUB 226 

93 IF m = 12 AND m <= 16 THEN GOSUB 220 

100 IF.m = 17 THEN GOSUB 2340 

105 IF m = 18 THEN GOSUB 250 

110 IF m == 19 AND m “= 23 THEN GOSUE 240 

115 IF m 3= 24 AND m <= 32 THEN GOSUB 370 

f20 PEN »#S,0%8 EO@CATE Ho 55.0  INEUT #2 Janse 
35 IF ans# <> z#(m) THEN 200 

1490 FOR f = 1 T0 10 : BORDER INT(RND*¥27) +: SOUND 1 
Ree aie a oC) tee OO ene NE Xetra El af 
LAS Cl =9e Ft 


150 GOSUB 250 

PoOmeCS tae: CeStt2 a =b0no oso 

200 PEN #2,2 : LOCATE #2,2,5 : PRINT #2,"Answer is 
peeee GN umes, ain, toe ee Tele OOO oe IN ex samt 

205 GOSUBR 250 

PO eee lS te GHTOLSo 

250 CLS #4 : PEN #4,2 : LOCATE #4,1,3 : PRINT #4,c 
PoC eCity ons C]iias) ake IENTY 

280 CLS #2 : LOCATE #2,2,1 : PRINT #2," Type run 

for ten more questions." : CLS #23 : LOCATE #3,2,3 
: FRINT #2,"Your final score is" 

285 LOCATE #2,2,4 : INPUT #2,h# 

emt tS ULI) Ami PA tse Nee dM oe Etc = NE 

200 PRINT #2,"What latitude is this?" : RETURN 

310 PRINT #2,"Name these winds?" : RETURN 

220 PRINT #2,"What kind of weather?" : RETURN 

330 PRINT #2,"Name the ocean?" : RETURN 

340 FRINT #2, "Highest point of the world?" : RETUR 

N 

250 FRINT #2,"Lowest point of the world?" : RETURN 


Jj 


360 FRINT #2,"Name the river?" : RETURN 

3270 PRINT #2,"Which desert is this?" : RETURN 

SOO DATA Equator,Tropic of Cancer,Tropic of Capric 
orn,Arctic Circle,Antarctic Circle,North East Trad 
es,South East Trades,Westerlies,Monsoons 

59S DATA Doldrums,Typhoons or Hurricanes,FPacific,A 

tlantic,Indian,Arctic,Southern,Mount Everest ,Dead 
Sea,Nile,Amazon 

310° DATA Mississippi-—Missouri,Irtysh, Yangtze,Great 
Western,Atacama,FPatagonian,Kalahari,Sahara,Gobi,A 
rabian, Thar,Australian 
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PYTHAGORAS 


STUDENTS- are you bored with learning theorems? Well, try this program which 
explains through carefully graded questions, diagrams and answers, how Pythagoras is 
worked out. The program finishes with ten questions which will really test your 
knowledge and understanding. A calculator would be useful for this last exercise. After 


each keyboard entry, press TSNgaaise . 


There are many screen pictures, one of which will look like this:- 








Now look at this 
example:- 







































































PROGRAMMING HINT - SQR 
The S@R function returns the square root of a numerical expression. 
Hence, 
PRINT SQR(64) 
will give an answer of 8 


Look at lines 202 and 203 in the program listing to see how it has been used. 
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1 REM pythagoras 

SON BEN Ons meiNin ec 0s EN leer et Ni gilbert SEIN’ cars OTN 

fae vo -PENOR -otNe S08 

Seer Aber lo CkSo.¢ BORDER 2s.) 1 -PeNEs 

oo COATES TOFS 2 IFPRINT QE Yemen AGA R.ACS® = 605 

UB 300 

4a GUSUB-S0Q : GQSUB S20 

ye EES? AcOSURS Oe 

7a FEN © : PRINT "The square on the hypoteneuse of 
a rightangled triangle is equal to the sum of th 

e squares on the other two sides." 

SG COSUB = ss0>:) GHSUER SOO": FEN Os) GOSUR S40 

Sa flare PGUSvERsOOn: SP ent e460, POe Cae: “DRAWSS25., 192 
y= : PLOT 340,200,232 : DRAW 320,1923,2 : DRAW 340,18 

4 : LOCATE 20,123 : FRINT "“hypoteneuse" : GOSUB 320 


93 LOCATE 1,1 : FRINT “If the sides measure 7, 4 a 
nd 5S units where 3S is the hypoteneuse then this 
US cree a: VSHSWR sso 
Fre Sle cnn 
Loo erEN Ss LOEATESt ent s ERENT Sr er 2SSk™ Seo =: 

EQXEATEBGOF1SGY PRINTS" A%: "SOSUR 250 : COEATE 20, 
(eo Mises (ode aera aw 
110 PEN 2 : LOCATE 2,20 : FRINT "3 squared + 4 squ 


ared = 5 squared" 
PSO srr oN a oP RENE Cree Ne eat epee ete Nc ey eet mala SA 
oo) oe aGOSUBSS2o 
Pao -PBN20es FROM Aer NTt" There tore Seta wes 


= 25" : GOSUBR 240 

140 CLS : FEN 0 : FRINT "Now look at this example 
J" = G0SUBSSO0s: GOSUB S00 ==GESUB "490 =" GOUSUE 42 
Oo 

TsO) LOCATE 2203 72 SPRINT oes -ROGATE 26, 10°? seri 
NT "squares" 

Lov FOCAhe Iolite: FPRUNT “Count the + IRRSNi) cimecd: 
: PRINT "squares." : FRINT “How many?" : INFUT re 
I7O-EOEATE 1,tot: PRINT “Now count thet: ERIN est 
reen squares" : PRINT "How many?" : INFUT gr 

elles Coven (5) CS (Sit ese) reece st ese eee rm Fee SMTi 1) tein Pet) ers 
RINT “and red squares" : FRINT “make 100" :; LOCATE 
Weeo° 2 INFUT ans> 

190 IF ans? = “no” THEN LOCATE 36,25 = PRINT “try 
agains 1 GHSUB 30 = GOO) 140 

{OS MOCATE sO,25 3 ERIN “qeed" < GOSUBY S30 

Loy FOR na = 1 7B 20 
200 CLS : FRINT "Now let’s try ten problems. You 
will find a calculator useful." = GOSUB 300 2 L 
GEATE 15,14 2 PRINT “at, 2 LOCATE 20,38 2 PRINT. “ec? 
SEE mie. Lees ete Diem at tics 
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202) im INT (RND¥15)4+5 : n = INTCRND¥15)+5 

20S) p SQR ( (m*m) + (n¥n) 

ZOa VOCATE Ss pice 2 PRINT “Sa ei 

208 (EOCATE§S, 14.2) ERIN sc eae 

210 LOCATE 3,16 : PRINT "What is b" : LOCATE 3,18 
: INPUT ans 

Zenoss EaGeh Mili sian Guat 

215 PRINT "The answer to two decimal points should 
be “ROUND (p,2) 

220 PRINT "I hope you managed that." : GOSUB 330 

aoe NEXT mu 

220 END 

200 PLOT 256,240,353 : DRAW 784,144,272 : DRAW 254,144 
: DRAW 256,240 

S02 PENP Oss LOCATES1T7 LG =ssFRINTHMEHRS (142) 45 GGA 

Eaedeal 

305 RETURN 

220 POR; b.=.1 7028.2 -SGUND «1 (845052057 2 -SOUNDFere 

SOG20, 7 2 FORTH ll TO 20073 NEG Gen Nese bale hes 

URN 

350 FOR tr =e1570 4000¢:qNEKT £ & RETURN 


240 LOCATE 2,25 : FRINT "Hit any key to continue" 
342 af = INKEY? : IF at = "" THEN 242 
344 RETURN 


270 SQUND 1. 80,20, 7.09 s-OR tt = a TOP lLOOOR ga NE xa: 
RETURN 

400 FOR a = 256 TO 284 STEP 16 : PLOT a,16,0 2: DRA 

Wa, ,143,0 : NEXT a : FOR a = 16 TO 144 STEF 14 : FP 

LOT 2546,a : DRAW 384,a : NEXT a 

410 RETURN 

420 FOR a = 144 TO 240 STEF 16 : FLOT 160,a,0 : DR 

AW SoO.a, 0 28 NEAT a 2 FOR) a= 2460 Tb) 2o6 Siee ts 
: FLOT a,144,0 : DRAW a,240,0 : NEXT a: RETURN 

500 FOR a = 256 TO 784 : FLOT a,1i6 : DRAW a,143 : 

NEXT a 

305 FOR a = 144 TO 240 : FLOT 160,a,2 : DRAW 255,a 
aie us SU NESX Teese 

910 PLOT 256,240,0 : DRAW 372,355,0 : DRAW 496,254 
: DRAW 384,144 

v1iS RETURN 
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NAME THAT BIRD 


GARDEN-BIRDS and BIRDFACTS 


These two programs will help you identify the birds that visit your garden. 
BIRDFACTS is a fact file and a good reference guide for fifteen common garden birds, 
the other, GARDEN-BIRDS allows the computer to identify the bird that you are 
describing through questions and answers. 


GARDEN-BIRDS-is a program that will help you identify twenty three of the more 
common garden birds. The idea is that by using a good bird book or by trying to 
remember your facts from memory you select a garden bird of your choice and then by 
answering the computer’s questions, the computer will try to identify the bird that you 
are describing. If the computer does not recognise the bird you will be informed. 


Be accurate with your descriptions. Your screen may look like this:- 


Your bird is the size of a sparrow or 
smaller. 


It has a short, slender beak. 
But what colour are the upper feathers. 










Are they: 
1) brown? 


2) black or white? 
| ? 
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1 REM garden-birds 


S wk = "Your bird is larger than a sparrow." : bb 
= "Your bird is the size of a sparrow or smalle 

re 2 cot = “It has a short, stumpy beak. 

6 ddt = "The computer ‘thinks that Tt is lay ees = 
"It has! a. short, slender beak.” 19442 = “1t) has a2 
short, sharp beak." 

7 ggt = "It has a stout beak." 


10 FENNOGISINES OO e: (PENT cs ENR 126) 3 Pen 2s. is 
RS eR ENSS See liMiae set 

tS BORDER Ge? RAPER’ ® 

SO SPENGS 2° CES VSeROR@ gt ="O TOs ss) EBEATE  /+aq),2- = 
PRINT ‘%e"” :2LOCATE 7+¢,12e3 PRINT es Ss Mitac 
SSeFORRGg = 20.1076 +. LOCATE: 7 .47q 2 Ni ee ewe 
ATE 34,4+qg 2: PRINT “*" 2: °NEXT g 

SOVPENY2 2 120CATE Meek S BR RINS S 4 aie TORMAL F 
Ve eMLOCATES Toe 3 OPRINTESECASRD EAN LObATE 1-75 
SOs REN Tate) ESE oa Di 

45 0RORT i= TOs SOOO: PNET Ve 

SOFEN 2: CLS: PRIN “What 16 Ehe si2e or the ops 
rds! GOPRINT SS SeRINT ee sores se SR RMiees rol ley 
The size of a Sparrow or smaller?" 

SS PRINT : FRINT "2) Larger than a sparrow?" : FRI 
NT s: PRINT "“Fress i or 3" 

60 INFUT b# 

690r0 Rae = Si THEN Oe 

TORE Ee = ee ek Heh oe 

7a EROINT «> ERIND Sol womeeomnlv.... .GOSUR Ee nC == fie) 
SO 

JOOS CESS s=REN 2 ee PR ENE bib see ERT NT cast PRelINil meni etic 

type of=beak has at gots? = PRINT @¢ CERT Nie Somes 
“3 PRINT : PRINT "i) short and stumpy?" 

105 PRINT : PRINT "2) short and slender?" : FRINT 
: PRINT “2) short and sharp?" 


LO7ZP PRINT “PRIN Press 1,2 or Ss" 

PLOSPRINTS 29 LNCS cs 

1S eres =e ie hea 

TPEOR Tires male ma ile Nee seve) 

1235 Sheet l=5 {Se HEM 450 

ARRON SI SCORN a Hella natal Ni! Manns hee Cray rite ln Win este Eels} GURTOIG. Ge: (6: 
OTO 100 


PRINT : PRINT : PRINT "But what colourings has it? 
Be per oee Fe Epa PSAiL emai east Ticetens yes oem sie 

155 PRINT = RRINT: °1) olive gqresnie] is Rn em eeu 
T "2) brown streaked with black?" : FRINT : PRINT 
"3S) red or orange on the head or. breast?" 

160 FRINT =< FRINT “Fress 152 or Ss” 

PGS) ERE ees ee Ci cls: 

P/O LR ede 1 TENE 2 Oe 


150 -GES -: PEN a. s PRINTS ES ss PRIN TGes = sae eNaeers 
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1S OTR eS eS THEN: 220 

180 IF d# = "3" THEN 240 

165 FRINT : PRINT "Fress 1,2 or 3S" : GOSUB 1000 : 

GOTO 150 

Ge Giese eMie2s es Cer NT ebb is Se eM ee os See RNs 2 

t is olive green." : FRINT : PRINT dd# : FRINT : PF 

RINT "“GREENF INCH" 

210 GOTO 1100 

BOOS eieS br aPeNite os sEREN bos sen Geto Pi Nieto 

t has brown colourings streaked with black." : PRI 

NT : PRINT dd#-: PRINT : PRINT "HOUSE SPARROW" : G 

HOT LLae 

240 CLS : FEN 2 : PRINT bb® : PRINT cc# : FRINT "I 

t has red or orange markings on the head or brea 

st." 

245 PEN 1 : FRINT : FRINT "I need some more distin 

guishing marks." : FRINT : PRINT "Has it also got 
a broad band of yellow on the wing?" 

290 INFUT ee 

2o09 IF ef = "yes" OR ef = "YES" THEN 280 

2oO0 FRONT eek Nieanase ir gots ad i) PRINT eR Nip 28 
1) a pink chest with a blue/grey crown?" RCD Mies 
PRINT "2) a rose pink chest with a black cap?" : 
PRINT : FRINT "S) none of these" 


SOI t-RIND— = FRINT “Press 1,2 or 2" 

268 INFUT f# 

2Oo. =| Reet alee N = 27 

270 Slt eb gas HENS 27 7 

inielsect te es REN 79 

2/73 PRINT =. PRINT dd# : PRINT = PRINT "“CHAFFINCH" 


He, SURO It OO 

ae? See 2 SRL Nicddtaas SRR INT 9: TERN pe BU EETINERY 

: GOTO 1100 

“797 GOTQ 1130 

280 FERINT «PRINT -ddt.s-PRINT sSFRINT “GOEDEINGH# 

Se GOTas11G0 

BOG. ESS: erie ecm eek boo ePrice fost i TMiteee 

FEN 2 : FRINT "But what colour are the upper body 
feathers?" 

PRINT. “4Aére they =" ss oPRINT os PRINTSes 2 


S05 FRINT : 

Ybrowune" : PRINT = -PRINT “"2) black and white?" 
“410° INFUT. gt 

Soo bee Gs eS) el THEN eo 


220 IF g# = "2" THEN 325 

aoc PPRING ¢" Press 1 “or-2"  s GOSUB] 1000.) -E0RD 300 
Saco ss FreNe ose SRINT bbs ssRRINTeets BRIN “oe 
t has black and white feathers." : FRINT : FRINT d 
dj7s JER Nites: SERN teat BD SWeaAGia Th Ea Thstaroo 

Zoo CES PENS i: PRINT bbt : FPRINTeet : oF RINT atl 


t has brown upper feathers." 
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255 PRINT : PRINT “But what is the colour of it’s 
breast?" : PRINT : PRINT "1) grey" = PRINT : PRINT 

"2) red" 
260 PRINT 


: PRINT "Fress 1 or 2" 
369 INPUT At 


568° ITF Oht mi” -THENRSeO 

SOG STE shi, AEN si = 

270 PRINT : FRINT "Fress i or 2" : GOSUB 1000 : GO 
TO S50 


372 CLS : PEN 3 : PRINT bb# : FRINT ee# : FRINT "I 

t has brown upper feathers and a red chest." 

275 PRINT : PRINT dd# : PRINT : PRINT "ROBIN" : GO 

TO 1100 / 

380 CLS : FEN 2 : PRINT bb# : PRINT ee : PRINT "I 

t has brown upper feathers and a grey breast." 

385 FRINT : FRINT "I need some mor distinguishing 

marks." : FRINT : FRINT "Is it very small with as 

mall tail that is often cocked up?" 

SE7 INPUT 34 

389 IF j# = “yes" OR j# = "YES" THEN 400 

595 CLSes4 PEN. SeeePRINT bb? co PRINTS Geter ero ie 

t has brown upper feathers and a slate/grey brea 

st." >: PRINT: (PRINT dd? se PRINT? “DUNNDERVoften=co 

nfused with a house sparrow." 

296 GOTO 1100 

400, CLSe:2FENS Sy e@BRINT (bb= 2 “PRINT tees os SPRINT ew 

t has brown upper feathers and a red breast." : FR 
INTes  PRINPRddaaos ERIN TPA RINT SRG eos te eyelets 

QO 

450 CLO RSRENTS ts RNP ebb st essP ROL Nt esha ec Elie ees 

FRINT =: FRINT “But what colourings has it?" : PRIN 

Th 3: GER UNS Sate sa 

453 PRINT 2 RPRENT “1° grey” sy PRINT SPRINT Beary s 

llow" : FRINT : PRINT "3) black and white" : PRINT 
2 PRINT? 4) Sbpliack™ oni PRINT A PRINTS) ted or ores 

nge on the head or breast" 


460 PRINT : PRINT “Press 1, 2, 3, 4 or 5" 
465 PRINT : INPUT m# 

470 IF m# = "1" THEN 480 

471 IF m# = "2" THEN 510 

472 IF m# = "3" THEN 540 

473 IF mt = "4" THEN 550 

474 IF m# = "5" THEN 560 


475 PRINT ©: PRINT “Press 1, 2, 3,-4 or S" = GOSUE 
1000 ;: GOTO 456 

486 CLS :UPENT2s :ORPRINT Gobay 2 CPRINMieeh hbase EROt Nile 
t has grey feathers." 

485 FEN 1 : FRINT : FRINT “I need some more distin 
guishing marks." : PRINT =: FRINT “Has it got a cur 
ved beak?" 
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490 FRINT : INFUT n# 

492 IF n& = "yes" OR né = "YES" THEN 500 
JetNet Cd te Eee (erro GOALS TL T's 
GOTO 1190 


200 PRINT =: PRINT dd# : PRINT : FRINT "TREE CREEFE 
Resa COG) sd LOL 

DLOVMEES : (FEN 2: PRINT bbs © PRINT “f#4 2 PRINT “I 
t has yellow feathers." 

s1iS FEN 1 : PRINT =: FRINT “I need some more distin 
guishing marks." : PRINT : FRINT “Has it got blue 


shades on it’s wings, tail and head?" : PRINT 

520 INPUT p# 

S21 IF p# = “yes" OR pt = "YES" THEN 530 

seu PRINT =: PRINT dd# : PRINT : PRINT "GREAT TIT" 
: GOTO 1100 

Sooo Pio Nis ste cee SPRINT = PRINT)“ BieUEr Th lr ss 
GOTO 1100 


ooo CES PEN 2s) PRINT boss PRINT -FF2-2 FRINT “I 

t has black and white feathers" 

945 PRINT =: FRINT dd? : PRINT : PRINT "HOUSE MARTI 

N= 2) GOTO soe 

Sic) elots EN a ge) eae as so RODIN etch se emcee ibrar an 

t has black feathers" 

Sas relies coe LN ele se Pron come ren Sali jer. e te? ect 

TO 1100 

B60 CES: FEN 2s: VERON bbs 2 “PRINT? => PRINT TL 

t has red or orange on the head or breast" 

56S FEN 1 : PRINT : FRINT “I need some more distin 

guishing marks." : FRINT : FRINT "Has it got a whi 

te throat and slate-grey upper feathers?" 

SOUP REN ts sO NEU os 

572 IF qt = "yes" OR qt = "YES" THEN S80 

S7o PRINT =? PRINT ddt SoPRINT = PRINT “SWALLOW *: 

GOTO 1100 

DOO PRIN so FRING dd= = PRINT ="PRINT “NUTHATEH™ & 
GOTO 1100 

GQOr CLS FEN 2 TOP RINT we seer RN se EN SER Nh 
"What type of beak has it got?" 

SOaee RN so rele el sectnce sp ene PCr Nt Smee Re Nie Oi) tsi 

ort and slender" : PRINT : PRINT "“2) stout" 


607 PRINT =: PRINT “Press for 2” 
610 PRINT : INPUT r# 
Qi20 LR Bee = SL THEN” 730 


614 IF r# = "2" THEN 650 

616 FRINT : PRINT "Press 1 or 2 only" : GOSUB 1000 
: GOTO 600 

Seve ees = PENS FRING wt 2 PRINT gogs 3. PEND 


RINT : FRINT “But what are it’s colourings’ Rater 
Niles RROEN le: We eases. 


= 
I 
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655. PRINT 2:-FPRINT “4d) grey?" -: .PRINTe}oRPREMT, 223-G 
rey and brown?" : PRINT : FRINT "3) brown with blu 
: PRINT : PRINT "4) black and whit 


e on the wing?" 

e? u 

657 PRINT 2 PRINT “Fress 1 j2.05 or 4e 

660 INPUT x# 

662 > bak Se =e! Side N aes) 

664 IF x# = "2" THEN 690 

GGG mL Ne Seay 

668 IF x# = "4" THEN 710 

670 PRINT 2 PRINT "Press 1. 2,-5 or 4A.only” =: GSU 


B 1000 ; GOTO 650 

680 GES :_PEN 2o:- PRINT) wos? PRIN gas =.ERINt st 
has grey feathers." : PRINT : PRINT dd# : PRINT : 
FRINT"WOOD-FIGEON" : GOTO 1100 

690 CES + -PENs2Zam PRINTa ws -aPRINT got s2PRONT ea 
has grey-brown feathers." : FRINT : PRINT dd# : F 

RINT : FRINT"COLLARED DOVE" : GOTO 1100 

720-ELSG 2 .FEN 2: PRINT wes PRINT Jgtes SRidNiee ait 
has brown feathers with blue on the wing." : FRI 

Ni s PRINDedd>,. 2 (BRIN 2 .sERIN DSC UAY S25 COG hO® 

71@ -CleS es ePEN=2 “SPAREN Tank 22 oP ROLNipea os sah ee tate 
has black and white feathers." : FRINT =: FRINT dd 

$ 2 -PRENT tecPRINde "MAGE IES c3-GeTO. 100 

VS0 TEES -IPEh 2 SPRINT we J OPRENT eat]: rena. oe 

RINT =: PRINT "But what are it’s colourings?" : FR 
INT “What is the colour of it’s crown?" : PRINT =: 

PRINT Sloe black. SRR IN Te eRe browne 

7oao FRONT « RINT; “Reesstali or 2" os SPRINT seNee iey 

$ 

V6OO-lE yeas" be tHeEN eee 

T6SaLh ys 9242 SRE ae 

770-PRINT os PRINT “Press. t om e2eo0nly") = 160SUBY 1006 
“SOTO S7S0:: 

780 (ELS saFEN-2is PRINTMwS 2sPRINT “eet se PRENT sw 

th black feathers.“ : PEN 1 : FRINT +: PRINT :"Ionee 

d some more distinguishing marks" : 

78S PRINT : FRINT “Is it’s breast black?" : PRINT 
see UT ce. 

790 IF zz# = “yes" OR zz% = "YES" THEN 810 

793 ELS 4: .PEN 2s PRINT we s PRINT. ce se FRINT Swi 

th black feathers." : FEN 1 : FRINT : FRINT “Has i 


t got a speckled green, blue and purple plumage? 
“ot SPRINT 2 chNPUT x33 
SOG TPowss = yes: OR Dee ees Veo. ois qenuler 


802 GOTO 11230 

S805 PRINT ddtos PRIM Sa eR eee eed Dien eee) se 
OO fi 

810 CLS : FEN 2 : FRINT wt : PRINT ee# =: PRINT "Wi 
th black feathers." : PRINT "It has a black breast 
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ho ewe dct arte tN os PRINT BLACKE IRD." 
He Sela iap alee ka orp) 

850 CLS : FEN 2 : FRINT wt : PRINT eet : PRINT “Wi 

th brown feathers." : PEN 1 : PRINT : PRINT "I nee 

d some more distinguishing marks" 

855 FRINT : PRINT "Has it a speckled breast with r 


ed patches under it’s wing and on it’s + 
lank?" : FRINT : INFUT yy# 
860 IF yy# = "yes" OR yy# = "YES" THEN 900 


Bos GES 5 PEN AL. PRINT wt 2 PRINT eet (3 PRINT. “Wi 
th brown feathers." : PEN 1 : FRINT : PRINT "Has i 
t got a speckled breast with" : PRINT : FRINT "1) 
bold spots?" : PRINT : FRINT "3) small spots?" 
870 FRINT : PRINT “3) no speckles at all?" : PRINT 
: INFUT ww 
735 IF wwt = “1" THEN 890 
880 IF wwt = "2" THEN 895 
881 IF ww# = "3" THEN 898 
BBO2 PRINT “Press 1,°2 or 3 only" 
So ON Ges assessor Rul lamWrens) rol mee toc UM diet 
th brown feathers." : FRINT “It has got a speckled 
Breast with bold spate.” 2: BRINT 2 PRINT dd}  2cP 
For Ni sea ReGen I oloee LRU SH a2) GOTOs LOO 
695 CES = FEN 2 2 FRONT wt cs PRINT eet PRINT. “Wi 
th brown feathers." : PRINT “It has got a speckled 
breast with small spots." FRUMip ose Gililenctci-t rem te 
RANI sR “SONG. THRUSH GOTO 1100 
898 GOTO 1120 
FOO) Case sore N ee rs FE RINT wt = PRIN Gees) 2 EPRINT “Ww 
th brown feathers." : PRINT "It has a speckled che 
st and red patches on it’s wing and flank." : FRIN 
T : PRINT dd# +: PRINT =: PRINT “REDWING” 
905 GOTO 1160 
1OOOREGR sta = lam sO0O fs NEAT so: RETURN 
11C0 ERIN: PRINT "Am “fF -correct?* 
1110 FPRINT : INFUT ans? 
1120 IF ans® = "yes" OR anst = " YES" THEN FRINT " 
Great we are both bright!!" : END 
1120 PRINT "Your bird is not in my book." : PRINT 
"Try another one." : END 
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BIRDFACTS- is a fact file program written in mode 2, so enabling more information 
to be shown on the screen. The program lists the birds for which there is information and 
asks you to enter the one that you require information on. The clear well laid out screen 
presents you with the facts under the headings :- 


name food 

size nest 

colouring eggs 

beak distinguishing marks 
habitat 


Your screen will look like this:- 


[NAME [SIZE 
COLOURING 


 DEARE OE. SPs RED 
HABITAT 


PeGUs Meat TERIOR SI 
| DISTINGUISHING MARKS 





TYPING TIP 


Both programs are long but well worth persevering with. Check each line as it is 
completed, thus avoiding possible problems later. 
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PROGRAMMING HINT - MERGE 


You may have noticed that the listing for GARDEN-BIRDS ended with line 1130 and 
that the listing for BIRDFACTS begins at line 1400. This gives the opportunity to 
MERGE the two programs together as the line numbers will not overlap. LOAD" GARDEN- 
BIRDS" and then without switching off the computer load BIRDFACTS using the 
command MERGE (BIRDFACTS). You will now have both programs in your computer’s 
memory but because GARDEN-BIRDS begins with line 1 the instructions for the other 
program are never reached. Try writing a program which asks the user which of the two 
programs are required. This separate program could be written between lines 1200 and 
1350 where there is available line space. It would then be necessary to branch off by 
inserting a new line before line 5, for instance at line 3, which would read:- 


3 GOTO 1200 


Insert your new program beginning with line 1200. When executed this short program 
would branch back to either line 5 or line 1400 depending on the users requirements. Be 
brave try merging the two programs and writing a short link program. 


1400 REM birdfacts 

1401 MODE 2 

1402 DIM na#(14) =: DIM si#(14) : DIM no(14) : DIM 

co#(14) : DIM be#(14) : DIM ha#(14) : DIM fo#(14) 
: DIM ne# (14) : DIM eg#(1i4) : DIM mo#(14) =: DIM ds 

#(14) 

14305 PEN Ove dNEGO.O>s PEN infra INK. 26 

1490 FOR mn = 0 TO 14 

1500 READ nat (mn) : READ si#¥(mn) : READ no (mn) =: R 

EAD co#(mn) +: READ be#(mn) : READ ha#t(mn) =: READ F 

o#f(mn) : READ ne#f(mn) : READ eg#t(mn) : READ mo#(mn 
») : READ ds# (mn) 

1510 NEXT mn 

Peco, Ges) BORDER G4.) (PAPER OPEN? I= se LOE ATE recs 
: PRINT “WHICH BIRD DO YOU WANT INFORMATION ON :" 
1525 LOCATE 41,5 : PRINT "1) magpie" : FRINT TAB(4 
13°23). jay” = PRINT. GABC41) 3s) "Sswi ft s+ PRINTS TAB 
(41)3"4) house martin" : PRINT TAB(41)3"5) swallow 
“os PRINT TAB(41)3"6) coal tit" 

1527 PRINT TAB(C41)4°7) Blue tit" =: PRINT TABC41);"™ 

8) great tit" : FPRINT TAB(41)3"9) wren" 

1525 PRINT TAB(40)3"10) robin" : PRINT TAB(40)3"11 
) blackbird" =: PRINT TAB(40)3"12) starling"™ : PRIN 

T TAB(40)3"13) chaffinch" : PRINT TAB(40)3"14) gre 

enfinch" 

1540 PRINT TAB(40)3"15) pied wagtail" 

1545 LOCATE 5,21 : PRINT "when you have read the i 

nformation hit any key to continue" 
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1550 LOCATE 5,22 : PRINT “press the correct number 

ts (OCALES Sa 24s 3 eLNEUliebis 

1555 IF bre 215 THEN FRINT “wrong number, try again 

" a FOR, t.-= 1.70) S000: NEXT t,.2- GOTO Lase 

135600 mpi = by sal 

15:70, GOSUE, 1705 

1600 PEN 1.2: LOCATE -2,2=:, PRINT. “NAMES ¢t3. 2 PRENT 

nat (mp) 

1605 LOCATE 40,2 : FRINT"SIZE:. “3s. s PRINT si? (mp); 
Me esi @.C Mp usc Mee 

16170. LOCATE 2,4.: PRINT, “COLOURING: /Uspar, PRINT eco 
(mp) 

1615 LOCATE 2,8 : PRINT “BEAK: "s =: PRINT bet (mp) 
1620 LOCATE 2,11 2 PRINT "HABITAT: “3; =: PRINT has ¢ 

mp > 

1625 LOCATE 2,14 
1620, LOCATE. 2.17, 
16s2 (EOCATE 2a 29 
Seon ann Glee TIP) 
1645 LOCATE 2,22 : FRINT “DISTINGUTSHING TNARKS 72 
: FRINT ds#(mp?) 

1680 abt = INFEY# : IF ab# = "" THEN 1680 

VE9O ERT sia22 

1705 BORDER © : PAFER 0 : CLS 

1707 FRINT CHR# (22) +CHR# (1) 

1708" Feats OF On 

1710 DRAW 0,295,1 : DRAW 620,395 : DRAW 620,060 : DR 

AW 0,0 

1715 PLOT 6,365, DRAWS GEO, S65. 1 Sse REGO. Sow en 
: DRAW 650,300,1 2: 0FLOT 9,250,1 : DRAW 630, 2505 17%: 
FLOT 0,200,1 : DRAW 620,200,1 

1720 PLOT 0, -1S5 5.023 5 DRAW 650515551 se Peai oO, Lose 
: DRAW 650,105, 10 + PEOT 0, 68,1-2 DRAW GeO, 6352 
17ea PEOT S00, eoa,..2 BRAW 200,565, 1 

1720 RETURN 

2600 DATA MAGFIE,large,45 

2005 DATA iridescent black and white plumage 

2010 DATA "stout, powerful and slightly curved",wo 
oded parks and large open gardens 

2015 DATA "insects, seeds, eggs, young birds 

2017 DATA domed sructure of twigs in bush or tree 
2020 DATA "4-7 1t. green speckled with grey/brown 


BREN TAeROOD sas see eit Nile Gm) 
PRINT. XoNESTs %s. +. PRINT net (mp) 
REM see Gi Siss sos en Mie cl Sanne 


2025 DATA April/May 

2020 DATA “long wedge shaped tail, short black and 
white wings" 

2040 DATA JAY, medium, 33 

2045 DATA brown and pink plumage with blue wing co 

verts 

2050 DATA stout, "woods,hedgerows,parks and gardens 
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» seldom far from trees" 

2055 DATA “acorns, eggs and young birds, 
worms, mice, lizards" 

2060 DATA twigs lined with rootlets and hair in bu 
sh or tree 

2065 DATA "3-6 green-tinged with olive-brown freck 
les",April to June 


insects, 


2070 DATA blue wing caoverts barred with black and 

black and white crown f :athers 

2080 DATA SWIFT,small,io 

2985 DATA black and |rown plumage with white chin 

patch 

2090 DATA small and sharp,having weak legs they ca 

nnot walk on land and cling to walls and cliffs 

2095S DATA “insects, flies, beetles and moths all t 

aken in flight" 

2106 DATA "straw, grass and feathers, under eaves 

or in crevasses and cemented with saliva" 

2105 DATA 2 or 3 white ,May/June 

2110 DATA "long, scythe-shaped wings with a forked 
tail" 

2120 DATA HOUSE-MARTIN, small ,1i3 


2125 DATA blue/black above with white underneath a 
nd rump 

2120 DATA small and sharp,aerial birds will cling 
to walls or sit on pylons or overhead wires 

2125 DATA almost entirely insects caught on the wi 
ng such as flies and beetles 

2140 DATA “rounded nest built of mud, grass and ro 
ots, lined with feathers, under eaves" 

2145 DATA 4-5 and white,May/June 

2150 DATA do not confuse with swift or swallow 
2160 DATA SWALLOW,small,18 

2165 DATA steel blue upper parts with chestnut for 
ehead and breast 

2170 DATA small and sharp,aerial birds will cling 


to walls or sit on overhead wires 


2175 DATA 


flying insects caught in flight such as 


dragonflies and butterflies 


2180 DATA "Saucer shaped nest of mud and dried gra 
sses lined with feathers,ledge or rafter" 

2185 DATA 3 to & and white speckled with red/brown 
»May to August 

2190 DATA long streamers on forked tail 

2200 DATA COAL TIT,small,10 

2205 DATA glossy blue/black head and white flash o 


n nape with pale underparts 


29210 DATA small and sharp,"town parks, gardens and 
woods 
2215 DATA “insects, beetles, flies, grubs, caterpi 
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llars and seeds" 

22320 DATA “in tree hole, bank or wall, 
moss foundation with hair and feathers" 
2225 DATA 6 to 10 white with red/brown speckles,Ap 
ril to May 

2220 DATA white patch on nape 

2240 DATA BLUE TIT,small,il 

2245 DATA “wings, tail and crown of head blue, 
eks white, back green, underparts yellow" 

2250 DATA small and sharp 

2255 DATA common garden bird often found hanging wu 
psidedown 

2260 DATA insects and seeds,in tree hole or nestin 
g box,8 to 15 white with red/brown spots,April to 


built ona 


che 


May 

2265 DATA colour and often found hanging upsidedow 
n 

2270 DATA GREAT TIT,s5mall,13 

2275 DATA “head/neck glossy black, cheeks white, g 
reen back, black band on yellow breast" 

2280 DATA small and sharp,common garden bird often 


found hanging upsidedown 
22685 DATA insects and seeds,in a hole in a tree or 
wall or nesting box 
2290 DATA 8 to 12 white and thickly spotted with r 
ed-brown,April to May 
2295 DATA glossy black head and black chest band 
2300 DATA WREN,small,10 
2305 DATA "red/brown with barring on the wings, 
il and flanks, small tail often cocked" 
2310 DATA thin and delicate,"moves about amongst d 
ried leaves, low plants and bushes" 
2215 DATA "Small insects, spiders and seeds","dome 
d nest of moss, leaves and grass found in a bush, 
creeper or wall in a hole" 
2220 DATA 4 to 6 white with fine red-brown spots,1 


ta 


ate April onwards 

2325 DATA very small and tail often cocked up 

2240 DATA ROBIN,small,i3 

2245 DATA "olive-brown above with orange red breas 
t, throat and forehead, white belly" 

2250 DATA thin and delicate,"gardens, hedgerows an 


d woods"," 


r the ground, 


2355 DATA 


insects, seeds and worms","“in a hole nea 
in a bank, pot or ledge" 


= to 6 white with red-brown spots and bl 


otches,March to June 


2260 DATA “friendly, cheeky and tame" 

2570 DATA BLACEBIRD,medium,25 

23735 DATA male jet black with a yellow bill 

2280 DATA small and slender ,hedges and gardens alm 
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ost everywhere,"“insects, seeds, worms and fruit" 
2282 DATA "neat cup of dry grass, lined with mud a 
nd dead leaves, low tree or ledge" 

2385 DATA 3 to 5 light blue with brown spots,March 
ROR ty 

2390 DATA jet black and yellow bill 

S400 DATA STARLING, medium, 21 

3405 DATA "iridescent purple, green and blue pluma 
ge" 

2410 DATA short and slender,can be seen almost any 
where, "insects, worms, spiders, snails, seeds and 
berries" 

S415 DATA “untidy nest of dried grass and straw in 
tree hole on cliff or hole",S to 7 pale blue,Apri 
1 to May 

S420 DATA purple green and blue plumage 

2430 DATA CHAFFINCH,small,15 

2435 DATA “blue-grey head/neck, pink breast and ch 
eeks, chestnut back, white on tail/wings" 

2440 DATA strong and stout,"hedgerows, fields and 
gardens",seeds and grain,"neat cup-nest of moss/li 
chen lined with wool/hair/feathers in hedge or bus 
fie 

2445 DATA 2 to 6 eggs off white with red-brown blo 
tches,April to early June,pink breast and cheeks w 
ith white on wings/tail/shoulder 

2450 DATA GREENFINCH,small,1is 

3455 DATA "olive-green with heavy pale bill, yello 
Ww wing bars and tail sides" 

3460 DATA strong and stout,"hedgerows, fields and 
gardens","seeds, fruit and berries" 

2465 DATA "untidy cup of grass/moss/roots, in a bu 
sh, tree or hedge",4 to 6 white/pale blue with red 
/brown spots and streaks,April to August 

2470 DATA the colouring 

3475 DATA FIED WAGTAIL,small ,17 

2480 DATA black and white plumage,thin and delicat 
e,"parks, gardens and near water” 

3485 DATA "flies, beetles and insects","lines a ho 
le in awall, shed or bank with hair, feathers or 
wool" 

3490 DATA = or 6& grey white marked with grey/brown 
»,APril to June 

3493 DATA long tail often wagged up and down 
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GRAPHS 


BIRTHGRAPHS RAINFALL TEMPERATURE 


The Amstrad CPC 464 has excellent facilities for collecting and using data, and 
presenting it in an effective, colourful, graphical and pictorial way. The following three 
programs will work on the information that you type into the computer. All the 
programs have full instructions displayed on the screen. Remember, after each it :m is 


typed in, the [Sagas key must be pressed. 


BIRTHGRAPH.- a simple program, and though limited, nevertheless emphasises the 
visual impact of bar charts. Written specifically for a “Birthday Survey” of up to 50 
people, the program asks the users to input the month in which they were born. This 
type of program could be left on in a classroom, so that each child can enter its own 
birthday month. The information, when collected, is then collated and printed in a list, 
with the option to present the results as a bar chart. 


Your screen will look like this:- 


/ GRAPH TO SHOW BIRTHDAYS \ 
JFMAMJJASOND | 
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1 REM birthgraph 

10 Hh = CHR# (145) 4+CHR# (145) +CHR#(145) 2: gj = CHR ( 

32) +CHRS (SS) 

Ls aaa OW or fort feo ny Ser sa ff Q j a 
2) jt S20 sue a=. ON Se -SseeHOns Get] Ova O 


lt 
3 

uy 

ow 
ie} 


17 WINDOW #1,1,40,1,11 

18 WINDOW #2,1,40,123,25 

19 WINDOW #23,1,40,1,25 

22 CeNROni tet Nie OrOls PEN ri olNE Sore PEN 22ers 

ie se ee Sea a ty INE ory cee) 

20 BORDER © BAPERT #2 50) 3 CLS #2 c (PEN 4o5 25> 2 DE 

ATE #3,10,2 PROD Sos! GR Te HG ohare ide 

a Ne cog PRINT #3 : FRINT #2, "This program al 

lows you to do a birthdaysurvey of up to SO people 

» You will be asked TO input the month of your 
birthday. The results are then printed on th 

e screen and you can if you wish" 

27 PRINT #23,"see the results in a graph." 

On aN Pats scone LN) toes PRINTS He soe RINT Foe HL 

any key to cantinue" 


45 af = INEFEY# : IF at = "" THEN 45 
370 CLS #2 3: FEN #2,1 : PRINT #2,"How many birthday 
5s do you wish to record?" 


se PRINT #2,"A maximum of SO," 

So PRINT #3 : INFUT #23,nu 

SUSLE ink > OOn DHEN TRIN to. sR LN tress OG Melt ya 
7. GOSUB *s00e: “5070 S90 

790 PRINT #3 : FRINT #3,"Hit any key to continue" 


Poser = MRE YS <2 Tr ae =)" HENS 7S 

SO FOR Bb = 91 TO me 

82 GOSUB 456 

85 CLS #1 : FRINT #1,"Which month is your birthday 
ete 

87 FRINT #1 : FPRINT #1,“Write the month in full, w 
ith a capital letter at the beginning,then press E 

NTER" 

90 PRINT #1 : INPUT #1,b# 


95 IF bf = "January" THEN ja = ja + 1 : GOTO 110 
96 IF bs = “February. THEN fsa of +l ss GOTe- 110 
Sf 1- be. = “Marcch: SHEN. m= nig Ses SOTOr1i 

SS te bs = Ane i 1 athe N a = Ta Fe 1 se 6hre iio 

99 IF bt = “May” THEN ma = ma + 1 : GOTO 110 

TOG IF bs = “dune” THEN j = 7 + ft fF GoTo ito 
Poet bs = “ty THEN yw SHS ue ek SE TO: T1o 


dca Bee "August" THEN au = au + 1 : GOTO 110 
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105 IF bf = "September" THEN s = s + 1 : GOTO 110 
104 IF bS = "October" STHEN o€ = oc & 2s GOTOT EHS 
105 IF be = "November" THEN n = 


Mm eo EIGOTEs ho 

106 IF bs "December" THEN d = d + 1 : GOTO 110 
108 FRINT #1,"Wrong spelling or no capital letter! 
i : GOSUE GOO =: GOTO es 

110 GOSUB 450 : NEXT b 

120 CLS #1 : FEN #1,2 : PRINT #1,"Below is the com 
plete table." *2 PRINT #14: PRINT (#1,°Do you wish t 

Q see the graph of your results? (yes or na)" 
125 INFUT #1,f# 

130 IF LERTS CFS, 1) <=) Yn" THEN. BRIN] #1, 46Gheeritoy: 
END 

eee a elice tar is) 
END 

135 CLS #3 : FLOT 44,0,2 : DRAW 44,400,232 : PLOT O, 

30,2 : DRAW 620,20,2 

139 FEN #3,2 © LOCATE #5,4,2505 .RPRIND ste, GHRE Cae 

HR# (74) s 7; CHR# (70) s j£5; CHRE (77) 3 j¥3 CHR# (65) 5 343 CHR 

$(77)5 9%3 CHRE (74) 5 #3 CHRE(74) 3 j$5 CHRE (65) 3 323 CHR ( 

62) 3 J%3 CHR (79) 3.34; CHRS (78) 343 CHRS (6a) 

140 FOR ww = 48 TO 3284 STEF 16 : FLOT 28,ww,2 : DR 

AW 42 ,ww,2 : NEXT ww 

142 LOCATE 45, 1b, 1. PRINT states os ER LN eee ee par 

NT #35, °20" © PRINT -#3 £ PRINT #3.449 sapPR oN ets 
PRINT #35,"16" : PRINT #5 : PRINT #35,"14" =: PRINT 

#5 3 PRINT #3, °22" 3 PRINT #5 <2) (PRINS STS 
IMT HS oe SPR TM HS. See 

145 PRINT #2 2 PRINT #5,°6" s PRINT Ha02 FRENT fe, 
WAU s (PRENT, 4:5 3 PRIN Hee 

145 IF ja = © THEN 150 : 

147 FOR e = 170 ja : FEN #3,1 : LOCATE #3,4,24-s 
: FRINT #3,h£ : NEXT e 

Teo Tes = = OSTAENet as 

1a2 FOR k=, 2200. s PEN .t3 5 a sLOGATE. HS. 4, 24—laa: 
FPRIRM #2..hs) = NEXT ak 

1S. sem =O THENSL6O 

157-FOR g = 1 TO m : PEN #2,1 +: LOCATE #5,,10,24-g 
S FERN ete ine Ne 

L600 TR cag=) Ose Nn sues 

162 FOR ho = TO ak: (PEN SRS or sLOGATE AS, fo, e24—mn 
SIF RING) tonnes se NE kek 

165 IF ma = 0 THEN 170 

167 FOR gq =(147TO pms = PEN #35, : LOCATE #23,16,24-q 
: PRINT #35022 3NEX] sq 

170 TF 3 =P6 THEN 175 

172 FOR p = 1 10 j : PEN 43,2 © COGATE #3, 19,24-5 
a) PRINTAHS nes) NEXT 

175 IF ju = 0 THEN 1809 


"N" THEN PRINT #1,"Cheerio" : 
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177 FOR v = 1 TO ju : PEN #351 :° LOCATE #2 ,22,24-y 
: PRINT #2,Hh# : NEXT v 

180 IF au = 0 THEN 185 

182 FOR w = 1 TG au : PEN #3,2 : LOCATE #2,25,24-w 
: PRINT #3,h# : NEXT w 

185 IF s = 0 THEN 190 

187 FOR x = 1 TOs : PEN #3,1 =: LOCATE #3,28,24-—« 
: PRINT #23,h¢ : NEXT x 

190 IF oc = © THEN 195 

192 FOR y = 1 TO oc : PEN #3,3 : LOCATE #3, 31,24-y 
: FRINT #3,h# : NEXT y 

195 IF n = 0 THEN-200 

177 -PORSe = =1 TO ond PEN #57 * LOCATE #3 ,34, 24-2 
RON Ste shite =, ONE X ee 

200 IF d = © THEN 220 

202 FOR r ="1 TO di : PEN #3,5 5 LOCATE #3,37,24=r 
: PRINT #2, ,h2 © NEXT r 

220 PEN #3,2 : LOCATE #3,12,3 : PRINT #3,"GRAFH TO 
SHOW BIRTHDAYS" 

coca -—  INREYS "he ae = THEN ere 

224 END 

450 LOCATE #2,1,1 : PRINT #2,"January";ja,"July"s 3 

uo: PRINT #2 

ass PRINT #2, "February";f,"August"sau s PRINT #2 

460 PRINT #2,"March";m,"September";s : PRINT #2 

465 PRINT #2,"April";a,"“Gctober":o0c : PRINT #2 

470 FRINT #2,"May"3ma,"November":n : PRINT #2 

4735 PRINT #2, "June"; j,"December"s;d 

480 RETURN 

290 FOR t = 1 TO 3500 : NEXT t : RETURN 


RAINGRAPH.- although still presented in the bar chart form, is more flexible, as 
alternative scales on the vertical axis are available, depending on the highest monthly 
reading. RAINGRAPH allows you to store twelve monthly rainfall figures and then 
have these printed out in a bar chart- a useful asset and additional aid when making 
comparative geographical studies of different places around the world. A most 
impressive, simple and colourful bar chart appears, showing the monthly rainfall 
figures. Having typed out the listing, try these three different sets of readings, which 


should use all three vertical scales:- 
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A S O N 


Jars 

nial 

Le ee 
ae 





TAPAS e al 976 


Your screen will look like this:- 


GRAPH TO SHOW RAINFALL 


100 
90 
80 
70 
60 
50 
40 
30 
20 
10 
0 


JFMAMJJASOND 


A natural extension of this program would be to add facilities for entering different sets 
of readings so that, for instance, rainfall comparisons could be made and seen on the 
chart, for example, monthly readings perhaps, of Lagos, London and Sydney. To be 
able to do this, would be especially helpful for geography students. 


1 REM rainfall 

LO DIM amet) 

SE RON Sine C22) crise) 

20 (PEN SG 2 enh OOM FEN Sl os INE 4226 + REN 2 seen 

Fey te rb IM Serre eel NE Shy ict 

30 BORDER S 2 PAPER *O © CES. FEN So “EQEATE +7 fea 
PRINT “RK ACT N Ps Le. GRA Poe piaraTe pate 

s PRINT “ADIN *sS LOCATE 29512752 (PRINT Sirsa." 
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53 GOSUB 400 

SO PAPERS! 2 ELS: BORDER 26": PEN So:=PRINT “This 
graph will enable you to store 12 monthly rainfa 
ll figures and then show these on a bar chart." 
BS FRINT : FRINT "Give me your highest monthly rea 
Ais a. S) a LINES ee hrs 

90 PEN 0 : FRINT "Now enter your 12 monthly readin 


gs beginning with January. Only enter the fi 
gure and not the name of the month. Remember to 
press ENTER after each reading :" 


Po°0 = As PRINT © FOR c =O TO LLP SPRINT TAB(H)4 
STNG imCe revere 

100 GOSUB 410 

+20 CLS s- PEPER I = JPEN 3) <¢CRRINT @2°PRINT !Monthly 
readings are :-" 


120 PEN 2 :OPRINT © PRINT "January. Se MLR) en 
PRINT " February ered? 
130 PRINT " March SiGe, Beene Seep red 1 
OS CIN Dig amie ext Lil lee nh Ry? "sm(4) 2: PRINT 
"June cane 
140 PRINT " July smo) 2 PRINT august 
"em(7) : PRINT " September fs Mie) ee Li 
" October smut CD ) 
150 FRINT " November "sm(190) : PRINT " Decembe 
i eee hetid.) 
Loo PENRO “eS iN . Srickanykhey oMGontantter * 
UGcec we (NPE Vis poy == 4 THEN es 
D/O PAPER. OF eho RDERS fei (SLs GO SURG 50) 
PSO> Te his ==. 100 (HEN GOSUE 250 
682 IF hi = 1900 AND hi «<= 200 THEN GOSUB 280 
184 IF hi + 200 AND hi “= 400 THEN GOSUB 210 


190 LOCATE 12,2 : PRINT "GRAPH TO SHOW RAINFALL 

200 LOCATE.1,1. 3 END 

ao), FEN LOCATE, 1,3.5. FOR. g-= 100 70 0 STEP -10 
:, PRINT:g. &..PRINT, : NEXT 

2o0 j= 16/5 : GOSUB 500 

260 RETURN 

SoC LUCATE toot POR Gg. = 200 WO-0 Sher 7-20 6. PRINT. 
Ges) ERENT ss NEAT og 

285..j.= 16/10: GOSUB 500 

=90 RETURN 

aa LOCATE, dso ese FOR Gg = #00 7) € 
Clee eRe lil ee snot eG 

215 j =.16/20 : GOSUE 500 

220 RETURN 

2J0 PLOT 61,0,1 : DRAW 61,400,1 : PLOT 0,30 : DRAW 
640,30 : FOR © = 112 TO 640 STEP 48 : PLOT e,15 : 
DRAW @,30 : NEXT e& 

“355 FOR f = 64. TO 352 STEP 22 : PLOT 15,f =: DRAW 6 


STEP. —40"s PRINT 
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1,f : NEXT ¢ 


360 -PEN: 1) @- LOCATE: 6) 25°) PRINT Sta P.M Bie Me 
d (A 2555 oOs NS Dee -chEiRN 

400 FOR a.= 1°70 10 : SOUND 1,2863,20,7 2 SOUND «2, 
16, 20, i/or “BORDERY TMIRCRNDS2 7). 32 (SDR te 1 eOeeOo rs 


PES oleic eve es Moll ec Siem cela nis 

410° FOR te=7 1." S000, F NEXT ty 2eRERURN 

300 FORTH = 64-70 112 Ss) PLOT nyo2 v2) se DRAW hh, S2+riNn 
Tm O) aay jase EeKels th 

Doo FOR hh - = 213  fO 2460s (ela hy c2 eee DRAIN a ihr, ce tee 
T (mA) 450 ,as NER h 

S10 FOR h = 


1462 TO 208 ; PLOT h,32) 2) eeiDRaWwohie al 
NT (m(2)*%3) 52 2 NEXT h / 
obs FORD =3207RT Ores 
Ni (ns) 23) 5s INE XT hh 
a20. RORs hp anes7 TO S04qc eR hie... DRAWING sone 
NT (m(4)%3),2 s NEXT h 
d2o FOR his aus TOasae 
NT (m(5)#3),5 2: NEXT h 
TSORPOR hy = sas TUS tOCe PEO hess 
Nin(m(6  5psje2e. NEXT 

S335 FOR h = 401 TO 448 : PLOT h,22,3 : DRAW h,S2tI 
NiGm 67). *5)) 35-59 2. NEXT hy 
240 FOR h = 449 TO 496 
Nim C8), 250s, 2. NEX Tah 
245 FOR h = 497 TO 344 
Nip(mt? 25) ,20 7 NEXT 
39 FOR h = S45 TO 592s PLOT h,S52,2)% DRAW h, Seti 
Nile C mil Oise j)) tae oe NES teen 

ooo FOR h = S93 TO 1640) PLOT hh, soc 2 DRAW hl seri 
NE CmiGd D) eg) seee ee IMESX Tah 

260 “RETURN 


FLOT h,32,3 : DRAW h,32+I 


i 


PLOT h,32,3 : DRAW h,Zz2+1 


DRAW h,22+1 


PGiig iis 225 eee DRAW nis creer 


PLOT h,o2,5 : DRAW h,22+I 


TEMPERATOURE- a most impressive and extremely useful program allowing you to 
type in twelve average monthly temperatures, using the Centigrade scale. The program 
continues by giving the complete list of monthly readings, and then shows them in the 
form of a line graph. 
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Your screen may look like this:- 


GRAPH TO SHOW MONTHLY TEMPERATURES 


prams 


JFMAMJJASOND 





TYPING TIP 

When typing in the rainfall and temperature programs make sure that you get the 
correct spacing in lines 120 to 150. If you do not, the programs will still work but the 
screen layout will not be so attractive. 


PROGRAMMING HINT - RENUM 


It would be useful to have all these three programs merged into one but before this could 
be done each program would have to be renumbered, so that none of the lines overlap. 


Follow these instructions:- 
1) Load"birthgraph" 


2) type: renum and press faNRRaia: 


The program has now been renumbered beginning with 10. 
It also has line increments of ten and finishes at line 810. 


3) Save this program. 
4) Load"rainfall" 
5) Type: renum 1000,1,10 


The program has now been renumbered, beginning at a new line of 1000, starting 
. at the old line of 1 with increments of ten , finishing at line 1500. 
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6) Save this program. 
7) Load"temp" 
8) Type: renum 2000,1,10 


The program has now been renumbered beginning at a new line of 2000, starting 
at the old line of 1, with increments of ten and finishing at line 2350. 


9) Save this program. 


You have now renumbered all the programs and SAVEd them. To get them to merge, 
follow the instructions under NAME THAT BIRD-PROGRAMMING HINT. Try 
to write a subroutine to give a choice of programs. 


1 


REM temp 


LO DEM) mols} 


4 


2 PRINT CHRS (22) +CHRe C2) 


a 


St BEN OO TNE OO as REN th oso UN ee Git. es aes 


E 


iN are cai) eis ae Ue a icy 


SOvBOaRDER Ga lL suPAPER. Os. CL Save PEN Se (AOE ATIEN 43 Sie: 
PROM (Behar eeehA sy .WSsktheyG Rie SP Ono es bE aie 
7,22 PRINT, “ADIN .s LOCATE 2o.be ste ceitiNilie fie ea 


ay GOSUB 400 
SO BARE 4 s GES s RORDER: 26 ss) Rene ss Ragu N te cline 


graph will enable you to store 12 monthly temper 


ature figures and then shaw them on a graph. Re 
adings must be on the Centigrade scale." 
90 PEN © : FRINT “Now enter your 12 monthly readin 


gs 


beginning with January. Only enter the fi 


gure and not the name of the month. Each reading 


can be taken to one decimal place. Remember to pr 


ess ENTER after each reading :" 


aa 


= es LNG ese eGR er = CsCl teeter tehcn Nile Gomes 


INPUT me) 2 «MEX 


100 GOSUB 410 


110 


GES is (PARERG 1 s6.: REIN gs: (co SERN eee at Ro NM tpete lM chraittnns 
readings are :-" 


PSQNRENS22EERINT, 2 SERUM se dem Lvatey, Lean?) mere 

PRINT “ February Poni Gla) 

P20 SERENE Setarch St) REN Eee Ap ini 
USIMGs) ae I en aN SRT oo Ns 

" June emt) 

140 FRINT " July SRT sh Coy dbeeianes bei UNI ae ALLENS te 
“sm(7) : FRINT “ September ROC So tore LN 

" October mean ase) 
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150 FRINT " November "sm(10) : FPRINT " Decembe 

iP Monet 1 dep 

160 FEN 9 : PRINT " Hit any key to continue." 

Tea eho =" DNREVS haat = ate THEN. 16S 

17° PAPER Ons. BORDER Os EES 2 “SOSuR eso 

186 GOSUB 250 

190 LOCATE 6,2 = PRINT "GRAFH TO SHOW MONTHLY TEMP 

ERATURES" 

200 LOCATE 1,1 : END 

aad eM ss ELOEANEP aon: Sao, ches LOO ho sO. STE’ —10 
Serk ON ag @ sar REN =< NET. ig 

Sas 30= 167s 2 GOSUR]—47555 SGOSUB: S00 

250 RETURN 

BSOCURL Oso Osis, DRAWS 4OG5der FEO O,30e") DRAW 
640, 29 by iROR, Gy =_ bts TO .646 75 7ERi48) 2 FGI seal Sis 
DRAW e©,20 : NEXT e 

Soe POR Gua G4 Orcs ei ae ee Oil ota te DRAW oc 
ete iE Nee 


Soom Nv he cb ATE o.eacs ERIN le Ro MF Ar SMe oJ 
dy Ab Se ae Nee De oR TURN 

70 JOR dos 1 oe tos SOUND oom. 20), / as SOUNDS. 
ee Oe Sl eho LT Crs sane (me tient tR eos mali Galapee OU 

NE ns NE Te ae RE TURN 

So i Le iO eC or so ES AST: ts RETURN 


ec eet hh = ey ie em ef (she ee) tee, es 
7 GOSUB 490 (s) NEXd fos RETURN 

AOS io iN Cmes 4) eter s) ODRAW hs TM (mts eg) 

+25 

hee Reon h-2, INT (m(z)*i)+29 : DRAW h+S, INT (m¢z)*3) 

tS 

494 RETURN 

500 PLOT 88,INTém(0)*j)+32,2 

BOS oo Oss. FOR te = lob Wie Glo oO ER AG. a se, oF 
1: DRAW zz,INTim(z)*j)+32 2: NEXT zz 

S04 RETURN 
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WORD-FIND 


A game for two players. 


PARENTS: this is a game designed to improve children’s vocabulary, 
spelling and manipulation of letters. The aim of the game is to find as many 
different words as possible from the word ““VEGETABLE”. A time of thirty 
seconds is allowed for each word to be typed into the computer. 


CHILDREN- how many different words can you make from the word 
“VEGETABLE’’? You may only use the letters as many times as they appear 
in the word and you are not allowed to use proper nouns (the names of people 
and places). You are not allowed to repeat a word and you are only allowed 
thirty seconds to type in each answer. 


At the beginning of the program you will each be asked your name. You must 
both type in your names remembering to press the ENTER! key after each one. 
You each start with a score of twenty points and points are awarded to you 
depending on the length of your word. When you have typed in your word, 


remember to press FaNMSaae . 


For example:- 


table TaNgsas 
ome ENTER: 
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Your screen should look something like this:- 


***VEGETABLE*** 
Scores: Tony = 23 
Ann = 24 


Tony your turn 
? tale 
Good correct 


Ann your turn 
? table 
Good correct 





You can stop the game at any time by typing in ‘game over’. Your final scores affd the 
winning name will be shown on the screen. 


PROGRAMMING HINTS - TIME 


Amstrad Basic has a useful device for identifying the passage of time. In this program, it 
was necessary to identify a thirty second period of time. Look at lines 240 to 244. 


Line 240 switches the clock on and puts the time at zero. 

Line 241 is an INPUT command, waiting for the player to type a word. 

Line 242 checks to see if the player wants the game to finish. 

Line 243 works out the time that has elapsed whilst the word has been typed in at 
line 241. 

Line 244 decides whether or not the time that has elapsed is greater or less than 
30 seconds (i.e. IF ticker > 30 THEN ...... ) and then the program is executed 


accordingly. 


The crucial commands in using the Amstrad clock are switching on, 
datum=INT(TIME/30@) and ascertaining the time lapse with, 
tickerz=C(C(TIME/300)-datum). 
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10 REM word-find 

1S DIM sii Ceogy) 

20 CLS 2 BORDER,O =» PARERS® : FEN 2 

SO INK 0,0 +:..LOCATE.1L,4.:..EPRINT“WORD=F-END" 

ASSAM gl omen atte eee Sec ee 

50 PRINT "This is a game for two.players.The aim 

of the game is to find words within a given word 
.You are given points for each" 

no IEBEATE Wyte 

60 PRINT "word. You will not gain any points if you 
try to repeat a word.The word will not count if y 

ou take longer than half a" 

70 PRINT "minute.After each word you must press 

ENTER. If you wish to finish the game then type 
‘game over’. 

Mo OG ATER ies io ele eee Moe) see eG Niele 

80 PRINT "Hit any key to continue" 

90 at = INEFEY# = IF af = "" THEN’ 30 

100 CES = BORDER =f" 2 PAPER O =. INK) Go 2Or= ore Naas 
INE 1,6 

Li ECAiET 4. 2 =P RIN CECAVER), DeWitt. tse VY OUge bem 

aaa 

120 LOCATE 4 
120 LOCATE 4 

eo" 

140 LOCATE 4,10 
150 LOCATE 4,14 
160 ®BOCATE 4,16 

Stans 

170 LOCATE 4,17 : FRINT nametwo#;", you will go se 

Conca 

175 LOCATE 4,19 

LMS 

177 LOCATE 4,22 PRINT "Let‘’s start" 

180 PEN 2 s (INR Sete: LOCATE, 4,24 3 FRINT sth the 
space bar to continue" 


4 ;: INFUT nameone? 
8 : PRINT "FLAYER 2. What is your nam 


INPUT nametwo#t 
FRINT "Well done." 
FRINT nameone#;", you will go fi 


PRINT "You each begin with 20 po 


jo 


190 aét.= I INKEY® os 2 DRirek ee THEN -b90 
200 totalone = 20 : totaltwo = 29 
S2OsCES 


Be OG Adm. Gc ce EN ce csem ime s 

GcE TAB eae eee 

2o0, LOCATE. 254 s.FEN do: INK 1,6>s PRINT “SCORES. 
"snameone#;" = "stotalone 

235 LOCATE 11,4 : PRINT nametwot;" = "stotaltwo 

238 LOCATE 1,8 : FRINT nameone#;" your turn" 

27 RESRORE 

240 datum = INT (TIME/300) 

241 LOCATE 1,10 SINPUT words 

242 IF word? = "game over" OR word? = "GAME OVER" 

THEN S50 


FRINT "*** VE 
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24% ticker” = ((TIME/300)-datum) 

244 IF tickerZ:20 THEN GOSUB 800 : GOTO 280 

246 GOSUB 400: IF m = 1 THEN 280 

247 FOR a = 1 TO 69 : READ d# 

“48 IF d# = word# THEN a = 49 : LOCATE 1,12 : PRIN 
T “Good correct" : GOSUE 840 

200 IF d# = "finish" THEN LOCATE 1,12 : FRINT “Not 
in my dictionary" 

2u2 NEXW a: FORSRK =) TO 150023" NEXT Yk 

=80 LOCATE 1,15 : PRINT nametwo#;" your turn" 

284 RESTORE 

=685 datum = INT(TIME/300) 

286 LOCATE 1,17 : INFUT word# 

287 IF word = "game over" OR word# = "GAME OVER" 

THEN S50 

“38 tickerZ” = ((TIME/200)-datum) 

269 IF tickerzA-sO THEN GOSUEB Soo = GOTO 220 

290 GOSUB 400: IF m = 1 THEN 220 

eo IMR ie le Oo? an NMEA Dancd 

aye IF ds = words THEN b = 69 => LOCATE 1,19 =: FRIN 

(SOO \eGintse@e cos OM SUE BO 

2S hed) fins THEN LOCAnE foto es -PRINT “Not 
in my dictionary" 

eo SMA ba Ore io NE eOOn ss NE Xa te 

230 GOTO 2260 

400 m=O : p=p+t i +: h#¥(p) = words 

410 IF p = 1 THEN 450 

AeOeman sie de =P) apr et 

20 IF h#(j) = word THEN m = 1 

435 IF m = 1 THEN PRINT "Whoops, used before" : j 

= 900 s FORK k = 1 TO 3000 2: NEXT & 

440 NEXT j 

445 IF p = 200 THEN S50 

450 RETURN 

mee DEEN eC) 28 Al einen, cst Mice) eens Feeney 
NE 1,26 

VOOM OcAnEe oy Sas PR TMT oSAVe OVER. FINA Seokee 
565 LOCATE 3,12 : PRINT nameone#;" has "stotalones; 
ene) imiesen 

370 LOCATE 3,14 : PRINT nametwo#;" has "stotaltwo; 
Leo O hes. 

a UATE sy LS 

380 IF totalone=totaltwo THEN FRINT nametwo# : GOT 
0 950 

590 IF totalonettotaltwo THEN FRINT nameone* : GOT 
Geos®) 

292 PRINT "*** DR A W **#*" =: END 

690 DATA beg,table,get,tab,bat,tale,tea,bleat,vet, 
bet,veal,let,eel ,gave,beet,leg,tag,bale,bag,leave, 
able,abet,ecat,ate,at,age, alb,ale,alee,alt,bate,bes 
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yb2,beat 

G10 DATA beetle, beget bel ,beta, betel ,bevel,elate,e 
levate,eve,gab,gable,gale,gat,gate,gee,gavel ,gel,g 
leet,glee,glebe,late,lave,lea,lece,leet,legate,leve 

e,teal 

520 DATA tee,teg,vale,vat,vegetal,finish,o 

S00 PRINT "Out of time" sSFOR ike! 1 or s0e0 2 HEXT 
k = RETURN % 

860 1 = LEN(word#) : totalone = totalone + 1 : RET 

URN 

900 11 = LENiword#) : totaltwo = totaltwo + 11 : R 

ETURN 

950 LOCATE 3,20 : FRINT “You won, well done" : END 
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It's an Education! 


The Amstrad CPC-464 is an ideal computer for all the family, but had you 
ever considered it as a useful educational aid? 


Tony Noble, one of Sigma’s most successful authors, will convince you 
that your 464 really can help children to master even the most difficult 
topics. Unlike a human teacher, the 464 has endless patience, giving you 
the luxury of a “private tutor’ for as long as you need it. 


No less than FIFTY complete programs are included in this unusual book. 
They cover such topics as: 


simple mathematics 
geometry 

language development 
logical thinking 
geography 

chemistry 


You can even practise French for your holiday! 


The programs are presented as complete, tested listings direct from a 
464, so there's no problem about them not working. Also, each program 
has a ‘programming tip” so that, by checking through the program to see 
how it works, Mums and Dads can become better programmers! 


Sigma publish an immense 

range of computer books, 

including ‘‘The Amstrad CPC-464 

Advanced User Guide” approved 6B £ NET +006.95 
by Amsoft. For information 

about this and our other fine ISBN 1-85058-019-7 


books write for a catalogue to: 


00695 
Sigma Press 





5 Alton Road 

Wilmslow 

Cheshire 

SKI 5DY 9 "781850"580195 
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